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INTRODUCTION 


I should like to begin by telling you something about the way this book is 
arranged. It is divided into four main sections. At the end of certain 
sections, the topics covered are summarized. 


Part A gives you basic information about CAD and, in particular, CAD 
with the C-128 using BASIC 7.0 or the C-64 using SIMONS' BASIC. 


In Part B, we get down to business. Here, you will find out, and 
hopefully try out at the same time, what programs your Commodore 
computer needs to enable you to use it for Computer Aided Design. 


Part C shows you the ways in which you can use CAD in your own 
particular field. 


Part D is concerned with a CAD system that I have nicknamed 
CADDYMAT. While Part B presents the individual program elements 
needed in order to make the computer produce certain figures, Part D 
groups together some of these programs to form an easy-to-handle CAD 
system. Using a menu, you can use CADDYMAT to tackle a CAD 
problem in a coherent manner. 


Please do not expect a ready-made system; there would not be enough 
room in this book to cover such a wide range of possibilities. Instead, I 
should like to show you how to use the different programs in cojunction 
with the computer using a command menu. 


Incidentally, the concept of a system is like a continuous thread that runs 
through the entire book. All the programs are put together to make it easy 
to combine them, and examples are given of such combinations. You will 
also find examples showing you what to do in order to work directly with 
your computer. 


Well, that's all for the time being. Just one more tip from me: You can't 
pull a rabbit out of a hat unless it was there in the first place! And this 
applies to your computer just as much as it does to you. Start with little 
things. 
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PART A: BASICS 
Al WHAT IS CAD? 


CAD is short for Computer-Aided-Design. This gives you some idea of 
what it entails. The whole concept becomes clearer if we think of the steps 
that an engineer has to take when designing a structure: _ 


Design 

Calculation 

Preparation of drawings 
Documentation 
Simulation and testing. 


When he uses CAD, an engineer puts his pencil, ruler and dividers away 
in a drawer and reaches, instead, for the computer keyboard (or a light 
pen). The screen and the plotter are now the scene of the action. And what 
goes on there becomes more astonishing from year to year. 


In addition to CAD, you will come across the abbreviations CAM or 
CAE. CAM stands for Computer-Aided-Manufacturing. CAE stands for 
Computer-Aided-Engineering and can be taken as a general term covering 
both CAD and CAM. In this book, what we are concerned with is CAD. 


One more thing: Do not confuse CAD with graphics. CAD goes far 
beyond graphics. Just think back to the functions mentioned earlier! 
Naturally, graphics are an important component of CAD, but there is far 
more to it than that. 
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A2 THE ELEMENTS INVOLVED IN CAD 
A2.1 THE HUMAN ELEMENT 


You probably suspect that I am going to say that human beings are the 
most important element in a CAD system. That is perfectly correct. On 
one hand, machines and programs are only as good as the people who 
operate them; on the other hand, it is human beings who cause most of the 
problems in such a system. One way or another, we can always get a grip 
on computers and programs, which cannot be said, thank heaven, of 
human beings. The greatest problem in this connection is the problem of 
acceptance. People are cautious, and often nervous, about things that are 
new to them. 


None of this concerns us here. You, dear reader, are interested in CAD 
for a wide variety of reasons. But one thing does apply to you: If you are 
disappointed with the results that you get from your computer, look first 
to see if you are not the reason why. Your system is only as good as you 
are! 


A2.2 HARDWARE 


Hardware is, roughly speaking, the computer itself plus everything that is 
connected to it, what we call the peripherals. The scope of the peripherals, 
i.e. the number of items of equipment to be connected, depends on the 
computer and on the quality of its interfaces. With our C-128 or C-64, we 
have a varity of interfaces available to use. In fact, we can connect more 
or less anything. 


A high-performance hardware package for use with CAD will include: 


Keyboard 

External storage (disk or casette drive) 
Monitor 

Graphics printer. 


Commercial systems include many other peripherals such as, plotters, 
light pens, touch-graphic pads, interfaces for linking up several 
computers, etc. 


As you will have gathered, I make no secret of my own opinions. This is 
no exception: It is relatively unimportant what hardware one uses. You 
only have to listen to people. One will by swear by the computer 
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produced by firm A, while another swears by firm C's computer. This 1s, 

if you will pardon the expression, a load of rubbish. Of course, the 

hardware has to satisfy specific requirements, but firms A and C can do 

this equally well. The computers available now all offer such an 

aati range of facilities that you could never explore them all ina 
ifetime. 


What goes right and what goes wrong depends, in the first place, on the 
user, that's obvious, and, in the second place, on the software. And as 
we are all actually geniuses, the performance of a CAD system depends, 
to a large extent, on the software. Because that is the way things are, this 
book is concerned almost solely with the software from here on! 


A2.3 SOFTWARE 


Software is everything with which you feed the computer. To put it more 
elegantly: Software is the sum of all programs that a computer needs in 
order to achieve a desired result. 


For this purpose, it requires operating system software to give it the 
general rules by which it can solve problems. It needs a language to tell it 
what you want it to do. It needs software to help it to control the 
peripherals and it needs problem-orientated software to group together the 
particular requirements of a specialized field in a set of rules that it can 
understand. 


In this book, we are concerned with problem-orientated software for 
CAD. We want our C-128 or C-64 to design for us and we therefore have 
to tell it how to do so. The programs in Part B tell you how to instruct it. 


Abacus Software CAD for the C-128 and C-64 
ee 
A3 CAD FACILITIES ON THE C-128 & C-64 


We have to examine the facilities needed more Closely. In particular, we 
should ask ourselves: What can we expect from C-128/C-64 CAD? 


We input the coordinates and manipulate our designs via the keyboard. 
You have probably seen CAD systems with the operator using a light pen 
instead of the keys. Would any of us have such a precise light pen? But, 
and this is more important: you cannot input precise coordinates with a 
light pen..For example, a dimension of 10 will only become 10 quite by 
chance. Far more probably, it will be 9.95 or 10.72, i.e. the light pen 
lands somewhere in the region of the point you want. If you wanted to get 
10 precisely, you would have to fiddle until you hit it, or input the 10 via 
the keyboard. 


That is why the newer systems use touch pads or try to control the 
computer using speech commands. All this makes for convenient, swift 
handling. This is of no concern to us. And so, this is not a basic 
drawback for us by comparison with commercial systems. 


A computer itself is characterized by its internal storage capacity and its 
computing speed. Our C-128/C-64 is far from being able to match any 
commercial systems on these two counts. 


The main storage, that is to say the internal memory, of our C-128/C-64 
is relatively small, but the programs can take care of that! They can be 
divided up so that only one part is in memory at a given time, while the 
rest remains stored externally. Our external Storage, i.e. diskettes, is 
infinitely large. We can use as many diskettes as we can afford to buy. At 
the worst, this method is much less convenient or swift, but is not a major 
drawback by comparison with the large CAD systems either. 


We output our designs on the monitor screen and a graphics printer. This 
is where we really are at a disadvantage by comparison with commercial 
Systems. 


With monitors and printers, the criterion of good picture quality is 
resolution, i.e. the number of dots that make up a picture. Recently, CAD 
systems with 1280x1024 (= 1,310,720) dots have come into service. The 
C-64, and C-128 only has 320x200 (= 64,000) dots in graphic mode to 
form pictures. 


The direct consequence of the relatively low resolution is as follows: 
Oblique lines, circles and curves give a more or less marked "stepped" 
effect. The picture has a distinctly digital appearance. But you can live 
with this and it is amazing what you can do with 64,000 picture dots! 
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A4 C-128/C-64-CAD HARDWARE 


The programs described in Part B were created using the following 
configuration: 


Commodore C-128 or C-64 with SIMON's BASIC 

1 1541 or 1571 disk drive 

MPS 801 or properly interfaced (EPSON) dot matrix printer 
Color monitor or television set. 


To put it more accurately, this is the configuration with which the 
programs have been developed. If you have a different printer or another 
floppy disk drive, the programs will, of course, run with them too, as 
long as your system itself runs. The essential is, of course, to have a 
Commodore 128 or 64. 


Just a few more words about storage. The free BASIC memory of the 
C-128/C-64 serves us as main memory. This is where the programs are 
actually processed, where data is modified and into which coordinates are 
entered, in short: design manipulation takes place in the main memory. If 
the computer is switched off, everything is lost. If we wish to keep 
programs, data and results longer, we therefore have to place them in 
long-term storage. For this, of course, we need our diskettes. Generally, 
long-term storage plays a part only at the beginning and at the end of a 
design session. That is to say, we just briefly insert a diskette, and then 
remove it at the end of the operation. 


We sometimes call this diskette a "final data" diskette. In addition to this, 
we use for our work (sorry, pleasure) the program diskette. During the 
design process, this remains constantly in the disk drive since we load the 
programs from it as required. 


And then, there is our special feature: the "temporary data’ diskette. 
Designs sometimes take on very complex forms. This means a lot of 
work. In order to avoid losing this work because of a single error, interim 
results should be stored from time to time. To do this, the program 
diskette has to be removed from the disk drive and replaced by the 
"tempoary data" diskette. Someone who has a dual disk drive has an easy 
time of it because he can save himself the tedious business of swapping 
diskettes. He still has the program diskette in drive 1 and can store interim 
results via drive 2 when he wants. This minimizes interference with the 
design process. 
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AS C-128/C-64-CAD SOFTWARE 


The software at our disposal has as follows: 


The computer-internal system software, Commodore 64 BASIC 2.0, the 
BASIC extension SIMON'S BASIC, or the C-128's BASIC 7.0 and the 
programs that we propose developing in this book. 


You may have been surprised to read in Chapter A3 that the Commodore 
had 320x200=64000 picture dots. Have you been accustomed to having 
only 40 columns and 24 lines up to now? That is because you have not 
yet worked with hi-res graphics. 


SIMON'S BASIC is an extension for the C-64 that is essential for our 
software. Without SIMON'S BASIC, our C64-CAD system would not 
work. It contains many commands that are specially created for CAD. 
These are primarily graphics commands but also include commands for 
convenient program structuring, commands to facilitate word processing 
and, which is very important, commands with which it is child's play to 
print from the screen. There is only one drawback to this extension: 
SIMON'S BASIC takes up part of the free internal memory of the C-64. 
While we previously had approximately 39K free at our disposal, we are 
left with about 31K as a result of this extension. 


The C-128 with 128K of memory and the built in graphic commands of 
BASIC 7.0 does not present these problems. BASIC 7.0 does not include 
a hi-res screen printing command or a MERGE command, both of which 
are required for our CAD system. The appendices of this book include 
programs to add these features to the powerful BASIC 7.0 commands. A 
suitable CAD system may now be achieved on both machines. 
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A6 INSIDE THE COMPUTER 


What goes on inside the computer is purely mathematical. We do not need 
to know much about these processes to use them like virtuosos. 
However, we should be clear about the fact that our programs represent a 
translation of our ideas into mathematics. Every dot, every dash, every 
complex shape that we use in our designs is a mathematical expression in 
the computer. 


And so, in the case of certain programs, I shall be explaining the 
mathematical principle behind the problem solving. You can use the 
programs without understanding the mathematics. 


However, if you do understand the math, there may be some "oh's" and 
"ah's" and you may get some ideas on solving problems that you can use 
in your own programs. : 
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A7 SUMMARY OF PART A 


Al: 


A3: 


A4: 


A6: 


CAD = Computer-Aided Design 


Design 

Calculation 

Preparation of drawings 
Documentation 
Simulation and testing. 


: CAD System = Man (or Woman) + Hardware + Software 


Quality depends First on Man, then on Software, 
lastly on Hardware. 


Performance of the C-128/C-64-CAD: 


There is only one real drawback in relation to more 
expensive and larger systems, the comparatively 
low resolution of the output devices (screen and 
printer). 


For C-128/C-64-CAD, we need: 


Commodore C-128 or C-64 

1 disk drive 

Dot matrix printer 

Colr monitor or color television set. 


: For C64-CAD, we need: 


The Basic extension: SIMON S BASIC 


A little enthusiasm for math can do no harm! 
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PART B : CAD PROGRAMS FOR THE C-128/C-64 


B1 THE SMALLEST BUILDING BLOCKS OF CAD 
B1.1 DOTS, LINES, RIGHT-ANGLES, CIRCLES, CURVES 


We obtain the commands for these elements directly from BASIC 7.0 or 
SIMON'S BASIC. It is best if you keep the manual within easy reach as 
you will often be needing it. I shall not be repeating the explanations it 
gives here; otherwise this book would be twice as thick. 


Now, let's start getting together our problem-oriented CAD programs: 
B1.2 DIFFERING LINE THICKNESSES 


In technical drawings, visible edges are shown as thick continuous lines, 
while dimension lines and auxiliary lines are shown as thin continuous 
lines. The thicknesses are unconnected with the size of the diagram. 


We therefore need a program for differing line thicknesses. The program 
shows you lines of any length, at any angle and of any thickness. 
Variables AA to AD are the line coordinates, while variable AE represents 
their thickness. 


Take a piece of millimeter ruled graph paper and mark a section on it 
320mm across and 200mm down. Every intersection between two lines 
then corresponds, in this section, to a pixel. This enables you to 
determine the coordinates with great accuracy. 


Line 10027 looks redundant. But we need it because, without it, the C-64 
would turn off the high-resolution graphics. Normally, another program 
would use this program as a subroutine. To exit from the program, press 
the RUN/STOP key. 


The C-128 does not have this oddity, to return to the text screen simply 
hit the RUN/STOP & RESTORE keys. The BASIC 7.0 command 
GRAPHIC 0 also returns to the text screen. You still must press the 
RUN/STOP key to exit the program before going to the text screen. 


If you want to draw several lines on the screen at the same time, write to 
the variables AA to AD, plus AE if required, starting from line 10027 
followed by a GOSUB 10002, lines 10021 to 10026 show how this is 
done. You can repeat this process as often as you wish. 
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The subroutine is placed at the start of the program for speed. It must be 
skipped using a GOTO; otherwise, when RUN is entered, the computer 
will go into the subroutine without a GOSUB and will produce an error 
message. 


If you want to print the lines, on the C-64 enter the SIMON'S BASIC 
COPY command on the last line. First, of course, you must open the 
corresponding printer channel using the OPEN command. For the C-128 
please see Appendix B for an EPSON screen dump program. 


PROGRAM LISTINGS 


The programs will be presented first in C-128 BASIC 7.0 format, 
following this will be the C-64 SIMON'S BASIC program. Look over 
both listings carefully, this will teach you a lot about your own computer. 
The programs may be combined to make use of the extra memory 
available in the C-128 but were written to allow easy conversion from 
C-64 SIMONS' BASIC to C-128 BASIC 7.0. This means that when 
MERGING (see Appendix A for a C-128 MERGE program) the 
programs into your own CAD system for the C-128, longer programs 
with faster speeds may be achieved. 
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10000 
10001 
10002 
10003 
10004 
10005 
10006 
10007 
10008 
10003 
10010 
10011 
10012 
10013 
10014 
10015 
10016 
10017 
10018 
100193 
10020 
10021 
100e2 
100e3 
100e4% 
100e5 
10026 
10027 
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REM "LINE THICKNESS C-128 
GOTO 100e0 

REM ”"SUBROUT.F.LINE THICKNESS” 
IF AB=AD THEN 1001e 
FOR AJ=1 TO AE 
AF=AAtTAT 

AG=AB 

AH=AC+AT 

AI=AD 

:DRAW 1,AF,AG TO AH,AI 
NEXT AJ 

GOTO 10019 

FOR AK=1 TO AE 

AF=AA 

AG=AB+AK 

AH=AC 

AI=AD+AK 

:-DRAW 1,AF,AG TO AH,AI 
NEXT AK 

RETURN 

GRAPHIC 1,1 

AA=50 

AB=20 

AC=150 

AD=20 

AE=2 

GOSUB 1000e 

GOTO 100e7 
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10000 
10001 
10002 
10003 
10004 
10005 
10006 
10007 
10008 
10009 
10010 
10011 
10012 
10013 
10014 
10015 
10016 
10017 
10018 
10019 
190020 
10021 
10022 
10023 
10024 
10025 
10026 
10027 


READY. 
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REM "LINE THICKNESS c-.6y4 
GOTO 10020 

REM "“SUBROUT.F.LINE THICKNESS” 
IF AB=AD THEN 10012 
FOR AJ=1 TO AE 
AF=AA+AI 

AG=AB 

AH=AC+AI 

AI=AD , 
sLINE AF,AG,AH,AI, 1 
NEXT Ad 

GOTO 10019 

FOR AK=1 TO AE 
AF=AA 

AG=AB+AK 

AH=AC 

AI=AD+AK 

sLINE AF,AG,AH,AI, 1 
NEXT AK 

RETURN 

HIRES 0,7 

AA=50 

AB=20 

AC=150 

AD=20 

AE=2 

GOSUB 10002 

GOTO 10027 
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B1.3 PARALLEL LINES 


We often want to draw parallel lines in a structure. The following 
program draws parallel lines of any lengths, at any angle and at any 
intervals required. 


Variables BA to BD are the coordinates of the initial line. BE is the 
interval between the parallel lines. 


The program is similiar to the one presented in Chapter B1.2. Remember 
that the C-128 version will be presented first followed by the C-64 
SIMONS' BASIC program. 


10050 REM "PARALLEL LINES C-128” 
10051 GOTO 10066 

10052 REM ”*SUBROUT.F.PARALL.” 
10053 IF BB=BD THEN 10053 
10054 BF=BA+BE 

1005S BG=BB 

10056 BH=BC+BE 

10057 BI=BD 

10058 GOTO 10063 

100SS BF=BA 

10060 BG=BB+BE 

10061 BH=BC 

10062 BI=BD+BE 

10063 :DRAW 1,BA,BB TO BC,BD 
10064 :DRAW 1,BF,BG TO BH,BI 
1006S RETURN 

10066 :GRAPHIC 1,1 


10067 
10068 
10063 
10070 
10071 
10072 
10073 


READY. 


BA=S0 
BB=c0 


BC=150 


BD=20 
BE=15 


GOSUB 10052 
GOTO 10073 
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10050 REM "PARALLEL LINES c-—s64 
10051 GOTO 10066 

10052 REM "SUBROUT.F.PARALL." 
10053 IF BB=BD THEN 10059 
10054 BF=BA+BE 

10055 BG=BB 

10056 BH=BC+BE 

10057 BI=BD 

10058 GOTO 100463 

10059 BF=BA 

10060 BG=BB+BE 

10061 BH=BC 

10062 BI=BD+BE 

10063 :LINE BA, BB, BC, BD, 1 
10064 :LINE BF,BG,BH,BI, 1 
10065 RETURN 

100464 HIRES 0,7 

10067 BA=50 

10068 BB=70 

10069 BC=150 

10070 BD=20 

10071 BE=15 

10072 GOSUB 10052 

10073 GOTO 10073 


READY. 
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B1.4 DASHED LINES 


In technical drawings, concealed edges are shown using dashed lines. 
This program draws dashed lines of any length, at any angle. Variables 
CA to CD are the coordinates for the dashed line. 


Are you surprised to see what a complex program is needed for a mere 
dashed line? If all possibilities - horizontal, vertical, left-sloping, 
right-sloping lines, etc. - have to be allowed for, the program can become 
quite large. We could say a lot more about this program, particularly 
from the mathematical viewpoint. However, in the first place, in the case 
of such simple forms as a line, even a dashed line, this is not very helpful 
and, in the second place, the simplest things are usually so complicated 
that they cannot be explained simply. 


Notice that the line numbers for the first program start at 10000 and that 
every subsequent program has progressively higher line numbers. Notice 
that the interval between two numbers is minimal but there is plenty of 
room between the end line of one program and the starting line of the 
next. If you examine the programs closely you'll see that the names of 
the variables for the first program all start with A, those of the second 
with B and those of the third with C, etc. 


The reason for all this is as follows: in this way, we can combine 
(MERGE) any programs we like without getting a jumble of line numbers 
or variables. You can insert each program as a subroutine into your main 
program. Have you noticed that we do not use any constants, we alter 
program lines if we want to alter our results. 


Each program can be run on its own, that is the simplest method. If 
several programs are to be grouped together to form a system, that is 
naturally another matter. With "CADDYMAT" (Part D), you do not need 
to alter any lines; in this case, you give the computer the required 
information in direct mode. 


You will not find it difficult to put together programs of your choice to 
form a CAD system. For example, you can stop the programs at the end, 
which is where the variables can be altered (that is why the input variables 
are always at the end of a program), and hold your own conversation with 
the computer via INPUT. 


The advantage of independent program elements is that you can see how 
each element in your design is done. Drawback: you can only solve one 
problem at a time. With a complete system, the individual solutions are 
no longer recognizable. Advantage: you can do complex things. 
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10100 
10101 
10102 
10103 
10104 
10105 
10106 
10107 
10106 
10103 
10110 
10111 
10112 
10113 
10114 
10115 
10116 
10117 
10118 
10119 
10120 
10121 
10122 
10123 
101e4 
101e5 
10126 
10127 
101268 
101e9g 
10130 
10131 
1013e 
10133 
10134 
16135 
10136 
10137 
10138 
10139 
10140 
10141 
101%e 
10143 
10144 
10145 
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REM "DASHED LINE C-128” 
GOTO 10187 
REM ”"SUBROUT.F.DASHED LINE” 
CE=ABSCCC-CA) 
CF=ABSCCB-CD) 
IF CA=CC THEN 10137 
IF CB=CD THEN 10158 
CG=INTCSQRCC16*CE%2)/CCF*%2+CE%2I 3) 
CH= INTCCCG*CFI/CCEI) 
CI=INTCCE/CG) 
CJ==1 
IF CA<CC AND CD<CB THEN 10115 
IF CA<CC AND CB<CD THEN 10117 
IF CC<CA AND CD<CB THEN 10120 
IF CC<CA AND CB<CD THEN 10123 
CG=~-CG 
GOTO 10125 
CG=-CG 
CH=—-CH 
GOTO 10125 
CG=CG 
CH=CH 
GOTO 10125 
CH=—-CH 
GOTO 1012S 
CK=CA+CG 
CL=-CB+CH 
GRAPHIC 1,1 
FOR CM=1 TO CI 
GOSUB 10178 
CK=CK-CG 
EL=CL=-CH 
CN=CkK-C2*CG) 
CO=CL-Ce*CHI 
:DRAW CP,CK,CL TO CN,CO 
NEXT CM 
GOTO 10186 
REM "VERTICAL LINES” 
CI=INTCCF/4) 
Co==1 
CH= 
IF CB<CD THEN 10143 
IF CO<CB THEN 10145 
CH=-CH 
GOTO 10147 
CH=CH 
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an eS 


10146 GOTO 10147 

10147 CL=CB+CH 

10148 :GRAPHIC 1,1 

10149 FOR CM=1 TO Cl 
10150 GOSUB 10178 

10151 CK=CA 

101Se CL=CL=-cH 

10153 CN=CA 

LO01SY CO=EL=Ce*Ch) 

10155 :DRAW CP,CK,CL TO CN,CO 
10156 NEXT CM 

10157 GOTO 101686 

10158 REM "HORIZONTAL LINES” 
10159 CI=INTICCE/43 

10160 CJ=-1 

10161 CG=4 

10162 IF CA<CC THEN 10164 
10163 IF CC<CA THEN 10166 
10164% CG=-CG 

1016S GOTO 10167 

10166 CG=CG 

10167 :GRAPHIC 1,1 

10168 CK=CA+CG 

10169 FOR CM=1 TO CI 
10170 GOSUB 101786 

10171 CK=CK-CG 

10172 CL=CB 

10173 CN=CK-Ce*CG) 

10174 CO=CB 

1017S :DRAW CP,CK,CL TO CN,CO 
10176 NEXT CM 

10177 GOTO 10186 

10178 REM ”LOQPS” 

10179 LJ=co*t=tJ 

10180 IF CJ=1 THEN 1018c 
10181 IF CJ=-1 THEN 10184 
101B8e CP=1 

10183 GOTO 10185 

10184% CP=0 

1018S RETURN 

10186 RETURN 

10187 CA=S0 

10188 CB=100 

10183 CC=50 

10190 CD=1993 

10191 GOSUB 10102 

10192 GOTO 10135e 
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10100 
10101 
1010e 
10103 
10104 
10105 
10106 
10107 
10108 
10109 
10110 
10111 
10112 
10113 
10114 
10115 
10116 
10117 
101186 
101193 
10120 
101e1 
10122 
10123 
101iec4% 
101e5 
10126 
10127 
10128 
10129 
10130 
10131 
10132 
10133 
10134 
10135 
10136 
10137 
10138 
10139 
10140 
10141 
10142 
10143 
10144 
10145 
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REM "DASHED LINE C-—6y 

GOTO 10187 

REM ”"SUBROUT.F.DASHED LINE” 
CE=ABSCCC-CAI 

CF=-ABSCCB-CD) 

IF CA=CC THEN 10137 

IF CB=CD THEN 10158 
CG=INTCSQRC C16*CE%2)/ (CF%2+CE%2) 3) 
CH= INTC CCG*CFI/(CE)) 
CI=INTCCE/CG) 

CJ=-1 

IF CA<CC AND CD<CB THEN 10115 
IF CA<CC AND CB<CD THEN 10117 
IF CC<CA AND CD<CB THEN 10120 
IF CC<CA AND CB<CD THEN 10123 
CG=-CG 

GOTO 10125 

CG=-CG 

CH=-CH 

GOTO 10125 

CG=CG 

CH=CH 

GOTO 10125 

CH=-CH 

GOTO 1012S 

CK=CA+CG 

CL=-CB+CH 

HIRES 0,7 

FOR CN=1 TO CI 

GOSUB 10178 

CK=CK-CG 

CL=CL-CH 

CN=CK-C2*CG)I 

CO=CL-C2*CH) 

:LINE CK,CL,CN,CO,CP 

NEXT CM 

GOTO 10186 

REM "VERTICAL LINES” 
CI-INTCCF/4) 

CJ=-1 

CH=4 

IF CB<CD THEN 10143 

IF CDO<CB THEN 10145 

CH=-CH 

GOTO 10147 

CH=CH 
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10146 
10147 
10148 
10149 
10150 
10151 
10152 
10153 
10154 
10155 
10156 
10157 
10158 
10153 
10160 
10161 
10162 
10163 
10164 
10165 
10166 
10167 
10168 
10169 
10170 
10171 
10172 
10173 
10174 
10175 
10176 
10177 
10178 
10179 
101680 
10181 
10162 
10183 
10184 
10185 
10186 
10187 
10188 
10189 
10190 
10131 
10132 
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GOTO 10147 

CL=CB+CH 

HIRES 0,7 

FOR CM=1 TO CI 

GOSUB 10178 

CK=CA 

CL=CL-CH 

CN=CA 

CO=CL-C2*CH) 

:LINE CK,CL,CN,CO,CP 


NEXT CM 


GOTO 10186 

REM "HORIZONTAL LINES” 
CI-INTCCE/4) 

CJ==1 

CG6=4 

IF CA<CC THEN 10164 
IF CC<CA THEN 10166 
CG=-CG 

GOTO 10167 

CG=CG 

HIRES 0,7 

CK=CA+CG 

FOR CmM=1 TO CI 
GOSUB 10178 
CK=CK-CG 

CL=CB 

CN=CK-Ce*CG I 

CO=CB 

>LINE CK,CL,CN,CO,CP 
NEXT CM 

GOTO 10186 

REM ”LOOPS” 
CJ=CJ*C-1) 

IF CJ=1 THEN 1016e 
IF CJ=-1 THEN 10184 
CP=1 

GOTO 10165 

CPp=0 

RETURN 

RETURN 

CA=50 

CB=100 

CC=S0 

CD19 

GOSUB 10102 

GOTO 1013e 
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B1.5 CENTER LINES 


In technical drawings, axes of symmetry, or center lines, are shown by 
dash-and-dot lines. Normally, the program for this could look similar to 
the one in Chapter B1.4 for dashed lines. It would simply have to be 
somewhat more extensive as there is the added complication of differing 
dash lengths. 


But we are not normal - we are cunning and have introduced a few 
sensible restrictions. We only permit vertical, horizontal and 45 degree 
center lines, but running in each direction. This considerably simplifies 
the problem and has no drawbacks since center lines, in the great majority 
of cases, run in these directions. In addition, it is best to avoid sloping 
lines that are not at an angle of 45 degrees in any case. - There is the 
problem of "step" formation (or staircasing- jagged edges). 


In this chapter, you will find two versions of the same program, drawing 
center lines of any length, vertically, horizontally and at 45 degrees. 


Version 1 also has an additional simplification: here, the entered length 
DE is only approximately reached. It is always shorter by a small number 
of pixels. On a technical drawing, this is not at all noticeable since center 
lines are always longer than the part through which they pass and they 
always stop somewhere, i.e. the ends do not join up with other lines. 


In version 2, this approximate length restriction is removed. Here, the line 
is exactly as long as you enter it using variable DE. Even this minor detail 
necessitates 5 more commands. 


If you compare the programs in Chapters B1.4 and B1.5, you have a 
vivid example of how a few sensible restrictions can simplify a program 
considerably. You should always check that a requirement is not 
exaggerated. Unnecessary thoroughness takes up valuable memory and 
lengthens computing time. It also consumes a lot of mental energy. 


In Chapter B1.4, we had to be extravagant as the above restrictions make 
no sense in the case of dashed lines for concealed edges. 


Just another point about variables DA to DE: DA and DB are the 
coordinat«'s for the starting point of the center line. This is where it starts 
from, taking the direction that you enter using DC. Permissible values for 
DC are as follows: 
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DC = 0... 0 degrees 
DC = 1... 45 degrees 
DC = 2... 90 degrees 
DC =3... 135 degrees 
DC = 4... 180 degrees 
DC = 5... 225 degrees 
DC = 6... 270 degrees 
DC = 7... 315 degrees 


DC = 0 corresponds to a vertical center line. DC = 1 corresponds to a 
center line at an angle of 45 degrees. The angles increase clockwise. 


Variable DD is an extension factor. You can use this to lengthen the 
dashes within the center line, as well as the center line itself. Permissible 
values are 0 to 255 but, with a center line of average length, taking a 
factor of 4, you will have gone off the screen long ago. 


DE gives the length of the center line. We have already described the 
effect that program Version 1 has on it. Here is another point. 
Theoretically, a maximum length of DE = 256 is the limit. However, with 
the extension factor, you can go well beyond it. But you could also 
simply add an extension to this center line by taking the end point of one 
center line as the starting point of the next. However, this is only of 
theoretical interest since a center line passing vertically over the entire 
screen requires only 200 dots (we are still talking about pixels). 
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10200 REN”CENTER LINE C-128 VER 1” 
10201 GOTO10210 

10c0e DHS=”"1020212e212020002”:GRAPHIC 1,1 
10203 XI=VALCMIDSCDHS,DC*2+1,133-1 

10204 YI=VALCMIDSCDHS , DC*2+2,133-1 

10e05 CX=CX+1:C2=C2+1: IFC2=110RCZ2=1e20RC2Z 

=150RC2-16THENPT=0: GOTO10208 

10e06 IFC2Z=17THENC2Z=1 

10207 PT=1 

10208 FORXX=1TODD: DRAW PT, DA, DB: DA=DA+XI 
: DB=DB+YI: NEXT 

10209 IFCX>DETHENRETURN: ELSEGOTO10205 
10210 DA=SO:REM”X-COORDINATE OF STARTING 
POINT” 

10211 DB=50:REM”Y-COORDINATE OF STARTING 
POINT” 

10e1e DC=3 :REM”ANGLE IF CENTER LINE” 
10213 DD=e :REM”EXTENSION FACTOR” 

1021% DE=S0:REM”LENGTH OF CENTER LINE” 
10815 GOSUB 10e0e 

10216 SLOW:GOTO 10216 


10200 REMN”CENTER LINE C-128” 
10201 GOTO10210 
10202 FAST: DHS=”"1020212212020002” : GRAPHI 


10e03 XI=VALCNIDSCDHS , DC*2+1,133-1 

10204 YI=VALCMIDSCDHS , DC*2+2,133-1 

10e05 CX=CX+1:C2=C2Z+1: IFCZ2=110RCZ2=120RC2Z 
=150RC2Z=16THENPT=0: GOTO10208 

10e06 IFC2=17THENCZ=1 

10207 PT=1 

10208 IFCX>DETHENRETURN 

10ec03 FORXX=1TODD: DRAW PT,DA,DB: DA=DA+XI 
: DB=DB+Y1I:NEXT:GOTO10205 , 

10210 DA=SO:REM”X-COORDINATE OF STARTING 
POINT” 

10211 DB=S0:REM”Y-COORDINATE OF STARTING 
POINT” 

10e1e DC=“3 :REM”ANGLE IF CENTER LINE” 
10213 DD=e2 :REM”EXTENSION FACTOR” 

10e1% DE=S0:REM”LENGTH OF CENTER LINE” 
10215 GOSUB 10202 

10216 SLOW:GOTO 10216 
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10200 
10201 
10202 
10203 
10204 
10205 
10206 
10207 
10208 
10209 
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REM"CENTER LINE VERS. 1 
GOTO 10209 

REM" SUBROUT.F.CENTER1 " 
DH$="6666666666116611" 
DI=INT (DE/16) 7 
DJ$=DUP (DH$, DI) 

:ROT DC,DD:HIRES 0,7 
:DRAW DJ$, DA, DB, 1 
RETURN 
DA=50: REM" X-COORDINATE 


C-64 


OF STARTING 


POINT" 


10210 DB=50: REM" Y—COORDINATE 
POINT" 

10211 DC=3 =:REM"ANGLE IF CENTER LINE" 
10212 DD=2 :REM"EXTENSION FACTOR" 
10213 DE=99:REM"LENGTH OF CENTER LINE" 
10214 GOSUB 10202 

10215 GOTO 10215 


OF STARTING 


READY. 


10220 
10221 
10222 
10223 
10224 
10225 
10226 
10227 
10228 
10229 
10230 
10231 


REM"CENTER LINE VERS.2 
GOTO 10233 
REM"SUBROUT.F.CENTER2" 
DH$=" 66666666661 16611" 
DI=INT (DE/16) 
DK=MOD (DE, 14) 

DL$=LEFTS (DHS, DK) 
DM$=DUP (DH, DI) 
DJ$=DM$+DL% 

:HIRES 0,7 

:ROT DC,DD 

:DRAW DJ#, DA, DB, 1 
10232 RETURN 
10233 DA=50 
G POINT" 
10234 DB=50 
G POINT" 
10235 DC=2 :REM"ANGLE OF CENTER LINE” 
10234 DD=1 :REM"EXTENSION FACTOR" 
10237 DE=150:REM"LENGTH OF CENTER LINE" 
10238 GOSUB 10222 

10239 GOTO 10239 


C-64 


:REM"X COORDINATE OF STARTIN 


sREM"Y COORDINATE OF. STARTIN 


READY. 
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B1.6 DIMENSION ARROWS AND LINES 


In technical drawings, dimensions are indicated by dimension arrows, 
lines and auxiliary lines. 


The dimension arrows that we use in our CAD are not in accordance with 
the DIN Standard. This standard was laid down at the time when no 
computers yet existed and cannot, therefore, apply to CAD. Professional 
users now make their own standards. Why shouldn't we? 


Dimension lines are no longer interrupted with the dimensions written in 
the middle. The line in CAD drawings runs from arrow to arrow and the 
dimension is shown above the line. 


In this chapter, you will find three programs with increasingly convenient 
dimensioning. 


The DIMENSION ARROW program draws an arrow with a dimension 
line of any length, vertically, horizontally and in all 45 degree directions. 


Variables EA and EB give the coordinates of the arrow heads and, using 
EC, you can determine in what direction the arrow with its dimension line 
is to point. 


The permissible values for EC are the same as for DC in Chapter B1.5. 
ED is, once again, the extension factor and EE gives the length of the 
dimension line (the extention factor was not implemented in the C-128 
version for it seems to be of no advantage). 


The DOUBLE DIMENSION ARROW program draws a second arrow at 
the other end of the dimension line, the point of which faces in the 
direction opposite to that of the first arrow. 


Variables EA and EB are the coordinates of the initial arrow head. If you 

enter EC=0, the dimension line runs vertically upwards from the tip of the 

first arrow, which points downwards, and the tip of the second arrow 

also points upwards. If you enter EC=4, the tip of the first arrow points 

upwards, the dimension line runs vertically downwards and the tip of the 

ae arrow also points downwards. The same applies to the other 
irections. 


That sounds a bit complicated, but it is not. Just experiment with this 
program, as with all the others. 


The COMPLETE DIMENSION program goes one step further. It adds 
two auxiliary lines to the dimension line with its two arrows. These are 
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lines that run from the edges to be measured and define the limits of the 
dimensions. The arrow heads touch the auxiliary lines. 


Variables EA and EE are the same as the variables for the first two 
programs in this Chapter except that EA and EB are the coordinates for 
the origin of the auxiliary lines at the edge of the figure. 


In addition to this, there are the variables EM and EN. EM gives the 
distance of the dimension line from an edge or from another dimension 
line with which it runs parallel. The maximum distance is EM=56. Such 
large distances (such long auxiliary lines) do not occur. If they do, you 
have made a mistake! 


EN gives the position of the dimension line in relation to the edge. If you 
choose EN=1, the dimension line runs parallel to the right-hand side of 
the edge. If you choose EN=2, it runs parallel to the left-hand side of the 
edge. 


Maybe you have wondered why there are no explanations on the 
composition or on the individual commands of the programs? 


There is little point in explaining programs. You have to work through 
them yourself if you want to know why and how they run. 


Start using the individual commands and then read up on them in the 
handbook. In this way, you will understand the program more thoroughly 
than if I explained it here, and those who are not interested will not be 
bored. 


Examine both versions of the programs carefully. The SIMONS' BASIC 
programs are much more compact because of how the DRAW command 
of SIMONS' BASIC operates. The DRAW command of SIMONS' 
BASIC can design a shape and the print it. In C-128 7.0 BASIC the 
DRAW command is similiar to the LINE command of SIMONS' BASIC. 


27 


Abacus Software CAD for the C-128 and C-64 


10250 REM”DINENSION ARROW C-128B” 

10e51 GOTO 10270 

10eSe REMN”SUBROUT.F.DIMNENSION ARROW” 
10253 ONDCGOTO10256, 10258, 10260, 10e6e,10 

e64, 10266 ,10ce68 

10254 FORDZ= OTO4: DRAW1 , DA-D2Z, DB- DZTODA+D 

2, O0B-D2Z2:NEXT: DRAW1, DA, DBTODA, DB-DE 

10255 RETURN 

10256 FORDZ=OTO6: DRAW! , DA, DB-DZTODA+B-D2 
, DB-D2Z: NEXT: DRAW1 , DA, DBTODA+DE , DB-DE 
10257 RETURN 

10258 FORDZ=OTO4: DRAW! , DA+D2Z, DB-DZ2TODA+D 

@,0B+D2:NEXT: DRAW1, DA, DBTODA+DE, DB 

10259 RETURN 

10260 FORDZ=OTDB: DRAW, DA, DB+D2Z2TODA+6—-D2 
, OB+D2Z: NEXT: DRAW1, DA, DBTODA+DE, DB+DE 
10261 RETURN 

102e@6e FORDZ=O0TO4: DRAW! , DA-DZ, DB+DZTODA+D 
2,0B+D2: NEXT: DRAW! , DA, DBTODA, DB+DE 

10263 RETURN 

10e64 FORDZ=OTOE: DRAW1 , DA, DB+DZTODA-6+D2 
, DB+D2: NEXT: DRAW1 , DA, DBTODA-DE, DB+DE 
10265 RETURN | 

10266 FORDZ=0TO': DRAW! , DA-DZ, DB+DZ2TODA-D 
2,DB-D2Z2: NEXT: DRAW1 , DA, DBTODA-DE, DB 

10267 RETURN 

10268 FORDZ=OTOE: DRAW. , DA, DB-DZTODA-6+D2 
, DB-D2Z: NEXT: DRAW1, DA, DBTODA- DE , DOB-DE 
10269 RETURN 

10270 DA=100 :REN”X COORDINATE OF THE AR 

ROW HEAD” 

10271 DB=100 :REMN”Y COORDINATE OF THE AR 

ROW HEAD” , 

10e7e DC=7 :REM”ANGLE OF THE ARROW” 
10e74 DE=100 :REMN”LENGTH OF DIMENSION LI 

NE” 

10275 GRAPHIC1,1 

10276 GOSUB 102eSe 

10e77 GOTO 10277 


READY. 
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10280 REMN”DOUBLE ARROW C-128” 

10281 GOTO 10301 

10e68e REM” SUBROUT.F.DOUBLE” 

10283 FOREZ=OTO4: DRAW1 , EA-E2Z, EB-E2TOEAtE 

Z2,EB-EZ:NEXT: RETURN 

10284 FOREZ=OTO6: DRAW, EA, EB-EZTOEA+6-E2Z 
» EB-E2Z: NEXT: RETURN 

1028S FOREZ=OTO'4: DRAW , EFA+EZ, EB-EZTOEAt+E 
2,EBtEZ: NEXT: RETURN 

10286 FOREZ=OTOSE: DRAW1, EA, EB+EZTOEA+6—-E2Z 
,EBtEZ: NEXT: RETURN 

10287 FOREZ=OTO': DRAW1 , EA-E2, EB+EZTOEA+E 

2,EBtEZ: NEXT: RETURN 

10288 FOREZ=OTOS6: DRAW1, EA, EB+EZTOEA-6+EZ 
,» EB+EZ: NEXT: RETURN 

10289 FOREZ=OTO'4: DRAW! , EA-EZ, EB+EZ2TOEA-E 

2,EB-EZ:NEXT: RETURN 

10290 FOREZ=OTO6: DRAW1, EA, EB-EZTOEA-6+E2 
, EB-E2: NEXT: RETURN 

10291 REM START 

10e393e ONECGOTO102S4, 10295, 10296, 10297 ,10 
2398, 10299, 10300 

10293 GOSUB10283: DRAW1 , EA, EBTOEA, EB-EE:E 
B=EB-EE: GOSUB10287: RETURN 

10294 GOSUB10284: DRAW1, EA, EBTOEA+EE, EB-E 
E: EA“EA+EE: EB=EB-EE: GOSUB10286: RETURN 
10295 GOSUB10285: DRAW1,EA, EBTOEA+EE,EB:E 

A=EA+EE: GOSUB10289: RETURN 

10296 GOSUB10286: DRAW] , EA, EBTOEA+tEE, EB+E 
E: EA="EA+EE: EB=EB+EE: GOSUB10290: RETURN 

10297 GOSUB10287: DRAW1 , EA, EBTOEA, EB+EE:E 

B=EB+EE : GOSUB10283: RETURN 

10298 GOSUB10288: DRAW1 , EA, EBTOEA-EE,EBtE 

E: EA=EA-EE: EB=EB+EE: GOSUB10e84t: RETURN 
10299 GOSUB10289: DRAW1, EA, EBTOEA-EE,EB:E 

A=EA-EE: GOSUB10285: RETURN 

10300 GOSUB102S0: DRAW1, EA, EBTOEA-EE,EB-E 
E: EA=EA-EE: EB=EB-EE: GOSUB10286: RETURN 
10301 EA=100 :REM”X COORDE ARROW HEAD” 
10302 EB=100 :REM”Y COORD ARROW HEAD” 
10303 EC=0 :-REM”ANGLE OF DIM LINE” 
10304% ED=1 >-REM” EXTENSION FACTOR” 
10305 EE=80 :REM”LENGTH OF DIM LINE” 
10306 GRAPHIC1,1:GOSUB 10e91 

10307 GOTO 10307 
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10310 GOTOY%O000 

10312 REM *COMPLETE ARROWHEAD C-128” 
10313 GOTO10336 

10314% REMN”DRAW ARROW HEADS” 

10315 FOREZ=OTOY: DRAW! , EA-EZ, EB-EZTOEAtE 
Z2,EB-E2:NEXT: RETURN 

10316 FOREZ=OTO6: DRAW1, EA, EB—EZTOEA+6—-EZ 
, EB-EZ: NEXT: RETURN 

10317 FOREZ=OTO": DRAW!1 , EA+EZ, EB-EZTOEA+E 
2,EBtEZ: NEXT: RETURN 

10318 FOREZ=OTO6: DRAW1, EA, EB+EZTOEA+G-EZ 
,» EB+EZ:NEXT: RETURN 

10319 FOREZ=OTOY: DRAW! , EA-EZ, EB+tE2TOEAt+E 
2, EBtEZ: NEXT: RETURN 

10320 FOREZ=OTO6: DRAW, EA, EB+EZTOEA-6+E2 
,» EB+E2Z: NEXT: RETURN 

10321 FOREZ=OTOY: DRAW! , EA-E2Z, EB+EZ2TOEA-E 
2,EB-EZ:NEXT: RETURN 

1032@e FOREZ=OTO6: DRAW1, EA, EB-EZTOEA-6+EZ 
» EB-E2: NEXT: RETURN 

10323 EN=ABSCEN):REM DRAW CONNECTING LIN 
E 

103e4% ONECGOTO10326, 103¢7, 10328 ,103295,10 
330 ,10331,10332 

10325 GOSUB10315: DRAW, EA, EBTOEA, EB-EE:E 
B=EB-EE: GOSUB10319: RETURN 

10326 GOSUB10316: DRAW1, EA, EBTOEA+EE , EB-E 
E: FA“EA+EE: EB=EB-EE: GOSUB10320: RETURN 
103e7 GOSUB10317: DRAW1, EA, EBTOEA+EE, EB:E 
A=EA+EE: GOSUB10321 : RETURN 

10328 GOSUB10316: DRAW1, EA, EBTOEA+tEE, EB+E 
E: EA™EA+EE: EB=EB+EE : GOSUB10322: RETURN 
103293 GOSUB10319: DRAW1, EA, EBTOEA, EBt+EE:E 
B=EB+EE: GOSUB10315: RETURN 

10330 GOSUB10320: DRAW1, EA, EBTOEA-EE, EB+E 
E: EA=EA-EE: EB=EB+EE : GOSUB10316: RETURN 
10331 GOSUB10321: DRAW1,EA,EBTOEA-EE,EB:E 
A=EA-EE:GOSUB10317 : RETURN 

10332 GOSUB1032e2: DRAW1, EA, EBTOEA-EE, EB-E 
E: EATEA-EE: EB=EB- oo GOSUB10318: RETURN 
10333 REM 

10334 GOSUB 10323 

10335 RETURN 

10336 REM”START OF ARROW HEAD” 

10338 REM”’DRAW DIMEMSION LINES” 

10333 EQ=-EN+3: IFEN=2THENEQ=-EQ 


30 





Abacus Software CAD for the C-128 and C-64 





10340 ONECGOTO1034e2, 10343, 10344, 1034%5,10 
346 , 10347 , 10348 

10341 DRAW1, EA, EBTOEA+EO, EB: DRAW, EA, EB- 
EETOEA+EQ, EB-EE: EA™EA+EM*SGNCEQ) : GOSUB10 
323: RETURN 

10342 DRAW1, EA, EBTOEA+EO, EB+EQ: DRAW!I , EAt+ 
EE, EB-EETOEA+EQ+EE , EB-EE+EQ: EAEA+EMN*SGN 
CEQ): EB=EB+EM*SGNC EQ) : GOSUB10323: RETURN 
10343 DRAW1, EA, EBTOEA, EB+EQ: DRAW1, EA+EE, 
EBTOEA+EE , EB+EQ: EB=EB+EM*SGNCEQ) : GOSUB10 
323: RETURN 

10344 DRAW1, EA, EBTOEA-EQ, EB+EQ: DRAW1, EAt+ 
EE, EB+EETOEA-EQ+EE , EB+EE+EQ: EA=EA-EMN*SGN 
CEQ) : EB"EB+EM*SGNCEQ) : GOSUB10323: RETURN 
1034S DRAW1, EA, EBTOEA-EQ, EB: DRAW1, EA, EB+ 
EETOEA—-EQ, EB+EE: EA™EA-EMN*SGNCEQ) : GOSUB10 
323: RETURN 

10346 DRAW1, EA, EBTOEA-EQ, EB-EQ: DRAW! , EA- 
EE, EB+EETOEA-EQ—EE, EB+EE-EQ: EA™EA-EMN*SGN 
CEQ) : EB@=EB-EM*SGNCEQ) : GOSUB10323: RETURN 
10347 DRAW1, EA, EBTOEA, EB-EQ: DRAW1, EA-EE, 
EBTOEA—EE , EB-EQ: EB=EB-EM*SGNCEQ) : GOSUB10 
323: RETURN 

10348 DRAW1, EA, EBTOEA+EO, EB-EQ: DRAW1 , EA- 
EE, EB-EETOEA+EQ-EE , EB-EE-EQ: EA™EA+EM*SGN 
CEQ) : EB=EB-EM*SGNCEQ) : GOSUB10323: RETURN 
40000 EA=SO :REMN”X COORDINATE OF THE STA 
RTING POINT OF THE AUXILIARY LINE” 

40010 EB=100 :REN”Y COORDINATE OF THE ST 
ARTING POINT OF THE AUXILIARY LINE” 
40020 EC=3 :REM”’ANGLE OF DIMENSION LIN 
E 39 

40030 ED=1 : REN” EXTENSION FACTOR” 
40040 EE=60 :REM”LENGTH OF DIMENSION LI 
NE ” 

40050 EM=4O0 :REMN”DISTANCE BETWEEN DIMEN 
SION LINE AND BODY EDGE” 

%O060 EN=e :REM” DIMENSION LINE TO RIGH 
T OR LEFT OF BODY EDGE” 

40070 GRAPHIC1,1:GOSUB1031e 

40080 GOTOYOO8O 


READY. 
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10250 REMN”"1DIMNEN ARROW C-64 

10251 GOTO 10261 | 

10252 REM’SUBROUT.F.DIMENSION ARROW” 
10253 EFS="60688365S5SSO068sssee3655555555 
3333” 

10254 EGS="6” 

10255 EHS-DUPCEGS, EE) 

10256 EIS=EFS+EHS 

10257 :HIRES 0,7 

10258 :ROT EC,ED 

10259 :DRAW EIS,EA,EB,1 

10260 RETURN 

10261 EA=100 :REM”X COORDINATE OF THE AR 
ROW HEAD” 

10262 EB=100 :REM”’Y COORDINATE OF THE AR 
ROW HEAD” 

10263 EC=0 :REM”’ANGLE OF THE ARROW” 
10264 ED=1 ;:REM”EXTENSION FACTOR” 
10265 EE=100 :REM”LENGTH OF DIMENSION LI 
NE 33 

10266 GOSUB 10252 

10267 GOTO 10267 

10283 DFS=”"606883655S5S068888883655555555 
3333” | 

READY. 

10280 REMN”22DOUBLE ARROW c¢-54 

10281 GOTO 10292 | 

10282 REM”SUBROUT.F.DOUBLE” 

10283 DFS=”"6068836S5SSOS88888836SSS5S55S 
3333” 

10284 DJ$= ”°375507888837555555078888s8eB88 
10285 DGS="6” | 

10286 DHS=DUPCDGS, DE) 

10287 DIS=DFS+DHS+DJS 

10288 :HIRES 0,7 

10289 :ROT DC,DD 

10290 : DRAW DIS,DA,DB,1 

10291 RETURN 

10292 DA=100 :REM”’X COORD ARROW HEAD” 
10293 DB=100 :REM”Y COORD ARROW HEAD” 
102984 DC=O0 :REM"ANGLE OF DIM LINE” 
10295 DD=1 + :REM”EXTENSION FACTOR” 
10296 DE=80 :REM”LENGTH OF DIM LINE” 
10297 GOSUB 10282 

10298 GOTO 10298 
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10310 REM’3COMPLETE ARROW c-64 

10311 GOTO 10335 sian 

10312 REM”SUBROUT.F.COMPLETE” 

10313 EFS-"60688365S5S55068888ee3655555555 
3333” 

10314 EJ$="375507888837555555078888s8sees 


55511116” 


10315 
10316 
10317 
10318 
103193 
10320 
10321 
103ee 
10323 
103e4% 
103e5 
10326 
10327 
10328 
10323 
10330 
10331 
10332 
10333 
10334 
10335 


EGS="5” 

EHS=“DUPCEGS, EE) 

EKS= ed 33 

ELS=DUPCEKS, EN) 

IF EN= 2 THEN 10326 
E0S="555333” 

EPS=ELS+E0S 

EQS= ad = 33 

ERS=DUPCEQS, EM) 
ESS=EPS+EFS+EHS+EJS+EOS+ERS 
GOTO 10331 

ETS$= "69 33 

EUS=DUPCETS, EM) 

EUS= "888000" 

EWS=EUS+EUS 
ESS=EWS+EFS+EHS+EJS+EVS+ELS 
:HIRES 0,7 

:ROT EC,ED 

: DRAW ESS,EA,EB,1 

RETURN 

EA=100 :REM”’X COORDINATE OF THE ST 


ARTING POINT OF THE AUXIALIARY LINE” 
10336 EB=100 :REM”Y COORDINATE OF THE ST 
ARTING POINT OF THE AUXIALIARY LINE” 


10337 EC=e :REM”WINKELLAGE DER MASSLIN 
IE” ° 

10338 ED=1 :REM”EXTENSION FACTOR” 
10339 EE=“60 :REM”LENGTH OF DIMENSION LI 
NE” 


10340 EM=40O :REM”DISTANCE BETWEEN DIMEN 
SION LINE AND BODY EDGE” 

10341 EN=2 :REM”’DIMENSION LINE TO RIGH 
T OR LEFT OF BODY EDGE” 

10342 GOSUB 1031e 

10343 GOTO10343 


READY. 
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In technical drawings, sectional areas are shown using hatching. Hatching 
lines run at an angle of 45 degrees from left to right, //= rising to the right, 
from right to left, \\= rising to the left, and both at the same time is 
crosshatching. | 


The HATCHING program provides hatching for any surfaces, rising to 
the left or to the right, with intervals between the hatching lines chosen at 
will. 


The CROSSHATCHING program provides hatching for any surfaces, 
rising to the right, to the left or crosshatching with intervals between the 
hatching lines chosen at will. 


That sounds very simple, and it is also simple in practice. But real 
problems are posed when it comes to finding solutions. Because one can 
always learn a lot from problems and the way they are solved, I should 
like to go into this in more detail here. 


It would be possible to select each individual hatching line using the 
LINE (SIMON'S) or DRAW (C-128) command. Even in the case of a 
simple rectangle, this would involve a considerable amount of 
programming. One could use the PARALLEL LINE programs described 
in Chapter B1.3. But even that will hardly cut down the work involved. 
If you want to hatch areas of any shape, you will soon be faced with 
corners, cul-de-sacs and regions that the shading cannot reach or in which 
the intervals between lines become irregular. You could travel slowly 
along the outline of the surface, scanning as you go, and reach every little 
corner in this way. Drawback: the computing time would be unacceptably 
long. 


What we need is an idea that basically solves and simplifies the problem 
as a whole, using the software that we have at our disposal. 


The solution lies in a concept with which we shall become more familiar 
in the next chapter: the multi-plane concept. 


We proceed in several steps. In the first step, we cover the entire screen 
with the hatching that will later be used to identify our surface, i.e. the 
hatching runs, with the desired narrower or wider line intervals, at an 
angle of 45 degrees, upwards to the right or left. We enter these 
parameters using variables FA and FB. 


In the second step, we indicate the area that is to be hatched. The program 
example is a rectangle, but it could be any area, including an irregular 
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one. The only requirement is that it should be bounded by a continuous 
line. The computer then draws this area on the hatched surface of the 
screen. 


In the third step, the computer identifies all the hatching lines lying 
outside the area to be hatched. In the fourth step, it deletes all lines outside 
the desired hatching area. What we are left with is the hatched area, 
mission accomplished. 


This solution is made possible by working on several planes and by using 
the PAINT and DRAW (LINE in SIMONS') commands. 


You can also select unhatched zones inside the hatched area by identifying 
them using a marking dot, as required by the PAINT command, and then 
using this command accordingly. 


With a little practice, particularly with the CROSSHATCHING program, 
you will be able to obtain some very interesting effects, which actually go 
beyond the requirements of a technical drawing. 


The CROSSHATCHING program also deserves particular mention for 
another reason. It shows you how to convert the basic program building 
blocks shown in this book so that you can converse directly with the 
computer. 


As you know, you can always end the programs after the line on which 
RETURN is located and modify them individually. That is what I have 
done here. The commands INPUT and CHAR (TEXT in C-64 
SIMONS'’) have been incorporated into the HATCHING program. 


Result: the computer asks you directly what line spacing you require, 
whether the hatching is to run up towards the right or the left or whether 
you wish to terminate the program. You answer the computer by entering 
a 1, 2 or 3. If, in the second run, you want to enter lines rising in the 
opposite direction, you will obtain crosshatching. You can have different 
line spaces for right and left. 


You can make as many runs as you like and, of course, keep entering 
new values for the variables. Things are arranged in such a way that the 
new values for the variables give new lines, which can be drawn on or 
between the old ones. You could also erase the old hatching before each 
run. What interests me here is to illustrate the conversation principle and 
show how easy it is to extend the program building blocks accordingly. 


One thing to watch out for: the HIRES command in C-64 SIMONS' 


BASIC must not be called twice since the high-resolution graphics would 
be turned off the second time. That’is why the HIRES command in C-64 
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SIMONS' BASIC has moved from line 10415 to line 10361 in the 
CROSSHATCHING program. In C-128 BASIC 7.0 a clear parameter in 
the GRAPHIC command can specify if the bit mapped graphics screen is 
cleared or not. 


Well, that's about it. We have seen how we can use a little trick to make 
life easier and arrive at a number of interesting solutions. 


As in real life, practically every shortcut has its drawbacks. The drawback 
in our case is that we cannot use it in complex drawings with unhatched 
areas. Everything bounded by continuous lines would be hatched. 


We can go on to the next trick by generating a hatching sample with one 
of these programs in the first plane and then transposing it to a second 
plane, i.e. the plane of the complex drawing. 


Once again, you will note the multi-plane concept. As it seems to be 
important in CAD, we shall be discussing it in greater detail in the next 
Section. 


The HATCHING and CROSSHATCHING programs are of only limited 
practical use when designing. We can learn a lot from them, but what we 
use in practice is another program: SUPERHATCHING. 


If, dear reader, you have already worked with these two programs, you 
have already come across cases in which, while you were able to hatch 
the areas you wanted, some of the hatching outside these areas was not 
erased. 


You should have read this chapter through first. Because now we come 
to the program that really allows you to hatch any area. In addition, you 
can also have hatching in a drawing that also contains items not requiring 
hatching. In the bargain, the computer makes a note of the hatched figure 
in a separate plane, which you do not have to define in the first place. The 
computer does it for you. 


You can erase the hatching on the drawing while the computer keeps it in 
the form of a mask. You can produce the hatching on the screen separate 
from the drawing and then superimpose both images. Of course, you can 
also produce several hatchings, whether identical or different, either on 
the drawing or separately. 


This program is called SUPERHATCHING. You enter the hatching line 
spaces using FA. Using FB, you determine whether the hatching is to run 
from left to right(1), from right to left(2) or crosswise(3). 


With coordinates FC and FD, you mark the surface to be hatched. 
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If you have made a separate figure plane and want to superimpose it on 
the figure of the drawing, you should read Section B2 of this book, 
where I shall give details of how to do this sort of thing. 


If you have entered all the parameters and started the program, the 
computer will mark out the surface to be hatched on the screen. And then, 
for quite a time, nothing happens on the screen. (You have to be patient. 
The C-128/C-64 is a little small and slow for these computing 
operations.) 


During this time, the program runs along mathematical lines which 
correspond to the hatching and notes every dot on the lines inside the 
marked field. Then the computer deletes the marking surface and the 
hatching is drawn - Done! 


In addition, the computer notes each dot placed outside the surface to be 
hatched that lies directly on a mathematical hatching line. It also draws in 
these dots but because dots have been set there already, we do not see 
this. But it is important to know this because you may remove the 
hatching, alter the drawing and then draw in the same hatching again. If 
you are unlucky, you may get a dot where one is no longer required. This 
cannot happen if hatching is done separately because, of course, there is 
only the hatching mask on the screen. It is for this reason, and because it 
i makes for greater flexibility, that as a rule you should use separate 
planes. 


For maths enthusiasts, I should just briefly like to show another possible 
solution, but I shall not show the program here because it gives the 
computer too much trouble in BASIC. The computing time is impossibly 
long. But, the principle of the solution is very interesting and can prove 
useful in other cases. Those who know how to program in machine 
language will be able to make good use of it. 

Here, we want to be able to do all our problem solving in BASIC; that is 
why I shall confine myself to explaining the principle. | 


We cover the screen not with an actual visible network of lines but with 

an imaginary, mathematical network. In this case, a line is entered using 

the formula: | 
Y=n*A+X 

A is the interval between the lines, n tells you which of the numerous 


lines is concerned, while Y and X are the coordinates of a point through 
which the line runs. 
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The surface to be hatched is scanned, dot by dot, using a scanning loop, 
and each dot is compared with the mathematical grid. This means that, if 
the coordinates of the scanned dot coincide with the coordinates of a 
“mathematical line", a dot is entered on the drawing at this point. If they 
do not correspond, nothing happens. In this way, we have an all-purpose 
tool with which to hatch in any surface as we like. | 


I have tried out a program of this kind. It works marvellously, but it 
really takes too long in BASIC. It involves too much computing time. 
Luckily, I was supplied with a few sandwiches by my wife. And so, I 
was able to’see the end of the program. 


10360 
10361 
10362 
10363 
10364 
10365 
10366 
10367 
10368 
10369 
10370 
10371 
10372 
10373 
10374 
10375 
10376 
10377 
103768 
10379 
10380 
10381 
1038e 
10383 
10384 
10385 
10386 
10387 
10388 


REM”HATCHING C-128” 
GOTO 10415 


REM” SUBROUT .F .HATCHING” 


FE=INTC318/FA) 
FF=INTC198/FA) 

IF FB=2 THEN 10390 
FOR FD= O TO FE 
FX=318-FD*FA 

FY=2 

FU=122-FD*FA 

FU=198 

IF FX<198 THEN 10374 
:: DRAW 1,FX,FYTOFU, FU 
NEXT FD 

FOR FD=O TO FF 

FX=318 

FY=2+FD*FA 
FU=122+FD*FA 

FU=198 

IF FU>318 THEN 10362 
::DRAW 1,FX,FYTOFU,FU 
NEXT FD 

FOR FD=O TO FF 
FX=198-FD*FA 

FY=2 

FU=2 

FU=198-FD*FA 

IF FU<2 THEN 10414 

:: DRAW 1,FX,FYTOFU, FU 


103693 NEXT FD:GOTO 10414 
10330 FOR FD=0O TO FE 
10391 FX=e+FD*FA 
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103392 
10393 
103354 
10335 
10396 
10397 
103398 
10393 
10400 
10401 
10%0e2e 
10403 
104044 
10405 


10406 
10407 
10408 
10403 
10410 
104%11 
10412 
10413 
10414 
10415 
10416 
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er a SS 


FY=e 

FU=198+FD*FA 

FU=198 

IF FU>318 THEN 10396 
:: DRAW 1,FX,FTOU,FV 
NEXT FD 

FOR FD=0 TO FF 
FX=122+FD*FA 

FY*=ce 

FU=318 

FU=198-FD*FA 

IF FX>318 THEN 10406 
: : DRAW1,FX,FYTOFU, FV 
NEXT FDO 


FOR FD=0O TO FF 

FX=2 

FY=2+FD*FA 
FU=198-FD*FA 

FU=198 

IF FU>198 THEN 10414 
:: DRAW 1,FX,FYTOFU, FV 
NEXT FD 

RETURN 

::GRAPHIC 1,1 

FA=20 : REM” INTERVAL BETWEEN HATCHI 


NG LINES” 


10417 


FB=1 :REM”RISING TO RIGHT (C1) OR 


LEFT Cej” 


10418 
10419 
10420 
10%e1 
104%ee 


READY. 


GOSUB 1036e 

: :BOX1,50,50,100,100 
::PAINT 1,0,0::PAINT 0,0,0 
::BOX1,50,50,100,100 

GOTO 104%ec 
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10360 
10361 
10362 
10363 
10364 
10365 
10366 
10367 
10368 
10369 
10370 
10371 
10372 
10373 
10374 
1037S 
10376 
10377 
10378 
10379 
10380 
10381 
10382 
10383 
10384 
10385 
10386 
10387 
10388 
10389 
103390 
10391 
10392 
103393 
10334 
1039S 
10396 
10397 
10398 
10399 
10400 
10401 
10402 
10403 
10404 
10405 


CAD for the C-128 and C-64 


REM” HATCHING: C-64 
GOTO 10415 

REM” SUBROUT .F .HATCHING” 
FE=INTC318/FA) 
FF=INTC198/FA) 

IF FB=2 THEN 10390 
FOR FD= O TO FE 
FX=318-FD*FA 

FY=2 

FU=122-FD*FA 

FU=198 

IF FX<198 THEN 10374 
:LINE FX,FY,FU,FU,1 
NEXT FD 

FOR FD=O TO FF 
FX=318 

FY=2+FD*FA 
FU=122+FD*FA 

FU=198 

IF FU>318 THEN 10382 
:LINE FX,FY,FU,FU,1 
NEXT FD 

FOR FD=O TO FF 
FX=198-FD*FA 

FY=2 

FU=2 

FU=198-FD*FA 

IF FU<2 THEN 10414 
:LINE FX,FY,FU,FU, 1 
NEXT FD:GOTO 10414 
FOR FD=0 TO FE 
FX=2+FD*FA 

FY=2 

FU=198+FD*FA 

FU=198 

IF FU>318 THEN 10398 
:LINE FX,FY,FU,FU,1 
NEXT FD 

FOR FD=O TO FF 
FX=122+FD*FA 

FY=2 

FU=318 

FU=198-FD*FA 

IF FX>318 THEN 10406 
:LINE FX,FY,FU,FU,1 
NEXT FD 
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10406 
10407 
10408 
10409 
10410 
10411 
10412 
10413 
104144 
10415 
10416 


CAD for the C-128 and C-64 


a EE EE 


FOR FD=0O TO FF 

FX-e 

FY=2+FD*FA 
FU=198-FD*FA 

FU=198 | 
IF FU>198 THEN 10414 
:LINE FX,FY,FU,FV,1 
NEXT FD 

RETURN 

:sHIRES 0,7 


‘FA=20 :REM”’ INTERVAL BETWEEN HATCHI 


NG LINES” 


10417 


FB=1 :REM”’RISING TO RIGHT C1ij OR 


LEFT Ce)” 


10416 


10413 


10420 
104%e1 
104e2e 


READY. 


GOSUB 1036¢e 

-REC 50,50,100,100,1 
:PAINT 0,0,1:PAINT 0,0,0 
-REC SO,50,100,100,1 
GOTO 104eec 
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10360 
10361 
10362 
10363 
10364 
10365 
10366 
10367 
10368 
10369 
10370 
10371 
10372 
10373 
10374 
10375 
10376 
10377 
10378 
10379 
10380 
10381 
1036e 
10383 
10384 
10385 
10386 
10387 
10388 
10389 
10330 
10391 
103392 
10393 
10334 
10395 
103936 
103397 
103398 
10339 
10400 
10401 
10402 
10403 
10404 
10405 


CAD for the C-128 and C-64 


REM”CROSSHATCHING C-128” 
>: GRAPHIC 1,1:GOTO 10415 
REM” SUBROUT.F. HATCHING” 
FE=INTC318/FA) 
FF=INTC196/FA) 

IF FB=2 THEN 10390 

FOR FD= O TO FE 


FX=318-FD*FA 


FY=2 

FU=122-FD*FA 

FU=-198 

IF FX<198 THEN 10374 
:: DRAW, FX,FYTOFU, FU 
NEXT FD 

FOR FD=0O TO FF 
FX=318 

FY=2+FD*FA 
FU=122+FD*FA 

FU=198 

IF FU>318 THEN 10362 
:: DRAW] ,FX,FYTOFU, Fu 
NEXT FD 

FOR FD=O TO FF 
FX=198-FD*FA 

PY=e 

FU=2 

FU=198-FD*FA 

IF FU<2 THEN 10414 
:: DRAW] ,FX,FYTOFU, FU 
NEXT FD:GOTO 10414 
FOR FD=0 TO FE 
FX=2+FD*FA 

rY=c 

FU=198+FD*FA 

FU=198 

IF FU>318 THEN 10398 
:: DRAW 1,FX,FYTOFU, FU 
NEXT FD 

FOR FD=O TO FF 
FX=122+FD*FA 

PY=c 

FU=318 

FU=198-FD*FA 


IF FX>318 THEN 10406 
:: DRAW 1,FX,FYTOFU, FU 
NEXT FD 
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10406 FOR FD=O0 TO FF 

10407 FX=e 

10408 FY=2+FD*FA 

10409 FU=198-FD*FA 

10410 FU=1358 

10411 IF FU>198 THEN 10414 

10412 ::DRAW 1,FX,FYTOFU,FV 

10413 NEXT FD 

10414 RETURN 

10415 GRAPHIC2,0O,23:WINDOWO,23,39,e%,1:1 
NPUT”WHAT DISTANCE”; FA 

10417 INPUT” RIGHT=1,LEFT=2, END=3”;FB 
10419 IF FB=3 THEN 10%eS 

10420 GRAPHIC1:GOSUB 1036¢e 

10421 ::BOX 1,10,10,300,180 

10422 ::PAINT 1,0,0::PAINT 0,0,0 
10423 ::BOX1,10,10,300,180 

10424 GOTO 10415 

1042S GRAPHICO:WINDOWO,O0,39,e4,1: END 


READY. 
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10360 
10361 
10362 
10363 
10364 
10365 
10366 
10367 
10368 
10369 
10370 
10371 
10372 
10373 
10374 
1037S 
10376 
10377 
10378 
10379 
10380 
10381 
103862 
10383 
10384 
1038S 
10386 
10387 
10388 
10389 
10330 
10391 
10332 
10393 
10394 
10395 


10396 


10397 
10398 
10339 
10400 
10401 
10402 
10403 
10404 
1040S 


REM” CROSSHATCHING 
:HIRES 0,7:GOTO 10415 
REM” SUBROUT.F. HATCHING” 
FE“INTC318/FA) 

FF=-INTC198/FA) 

IF FB=2 THEN 10390 
FOR FD= O TO FE 
FX=318-FD*FA 

FY=2 

FU=122-FD*FA 

FU=198 

IF FX<198 THEN 10374 
:LINE FX,FY,FU, FV, 1 
NEXT FD 

FOR FD=0O TO FF 
FX=318 

FY=2+FD*FA 
FU=122+FD*FA 

FU=198 

IF FU>318 THEN 10382 
:LINE FX,FY,FU,FU,1 

NEXT FD 

FOR FD=0 TO FF 

FX=198-FD*FA 

FY=2 

FU=2 

FU=1S8-FD*FA 

IF FU<2 THEN 10414 
:LINE FX,FY,FU,FU,1 
NEXT FD:GOTO 10414 

FOR FD=0 TO FE 
FX=2+FD*FA 

rFY=2 

FU"19S8+FD*FA 

FU=198 

IF FU>318 THEN 10398 
>LINE FX,FY,FU,FU,1 
NEXT FD 

FOR FD=O TO FF 
FX=122+FD*FA 

PY=e 

FU=318 

FU=198-FD*FA 

IF FX>318 THEN 10406 
:LINE FX,FY,FU,FU,1 
NEXT FDO 
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10411 
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10414 
10415 
S 

10416 
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FOR FD=0O TO FF 

FX=e 

FY=2+FD*FA 
FU=198-FD*FA 

FU=198 

IF FU>198 THEN 10414 


:LINE FX,FY,FU,FV,1 

NEXT FD 

RETURN 

-TEXT 10,190, "WHAT DISTANCE?”,1,1, 
INPUT FA: TEXT 10,190, "WHAT DISTANC 


E?”,0,1,8 

10417 : TEXT 10,190, "RIGHT=“1, LEFT=e, END=3 
ae ore arg = 

10418 INPUT FB: TEXT 10,190, ”RIGHT=1,LEFT 


=<2 END=3 ”,0,1,8 


10413 
10420 
10%e1 
104e2 
104%e3 
104%e4 
10425 


READY. 


IF FB=3 THEN 104%e5 

GOSUB 1036c 

>-REC 10,10,300,180,1 
:PAINT 0,0,1:PAINT 0,0,0 
:REC 10,10,300,180,1 
GOTO 10415 

END 
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10360 FAST: REM”SUPERHATCHING C-128” 
10361 GOTO 10415 
10362 REMN”SUBROUT.F .SUPERHATCHING” 
10363 FT=1:FW=0:DIM FJC2000)]:DIM FKC2000 


J: IF FB=2 THEN 10411 


10364 
10365 
10366 
10370 
10371 
10372 
10373 
10374 
10375 
10376 
10377 
10378 
10379 
10380 
10381 
1036e 
10383 
10384 
1038S 
10386 
10387 
10388 
10389 
10330 
10391 
10392 
10393 
10334 
10395 
10396 
10397 
10398 
10399 
10400 
10401 
10402 
10403 
10404 
10405 
10406 
10407 


:: PAINT 1,FC+1,FD+1 
FE=INTC320/FA3) 
FF=INTC200/FAI 

FOR FG=1 TO FE 

FY=0 

FX=FG*FA 

REM LOOP 

FX=FX-1*FT 

PY=FY+1 

IF FX=0 OR FY=200 THEN10384 
LOCATEFX,FY:FH=RDOTC2) 
IF FH=1 THEN 10380 
GOTO 10383 

PISFi +i 

FJCFIJ=FX 

FKCFIIJ=FY 

GOTO10373 

NEXT FG 

FOR FU=0 TO CFF-1) 

IF FB=2 OR FW=1 THEN 10389 
FX=320 

GOTO 10390 

FX=0 

FY=FU*FA 

REM LOOP 

FX=FX-1*FT 

FY=FY+1 

IF FY=200 OR FX=OTHEN10402 
LOCATEFX,FY:FM=RDOTC2) 
IF FN=1 THEN 10398 
GOTO 10401 

FI=FI+1 

FICFIJ=FX 

FKCFIIJ=FY 

GOTO10391 

NEXT FU 

IF FB=3 THEN 10409 

>: PAINT O,FC+1,FD+1 
FOR FO=1 TO FI 

>: DRAW], FJCFO),FKCFO) 
NEXT FO:FI=0 
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10408 GOTO 10414 

10409 FW=FW+1 

10410 IF FW=e THEN 10404 

10411 FT=-1 

10413 GOTO 10364 

10414% RETURN 

10415 :GRAPHIC 1,1 

10416 FA=30 :REM”DISTANCE BETWEEN HATCH! 

NG LINES” 

10417 FB=3 :REM”RIGHT(C1),LEFTC2),CROSSC 

SIHATCHING"” 

10418 FC=100:REMN”X COORDINATE OF NARKING 
DOT” 

se FD=SO :REM”Y COORDINATE OF MARKING 
0 33 

10420 ::BOX 1,80,20,180,110 

10421 GOSUB 1036e: SLOW 

10422 GOTO104%ee 


READY. 
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10360 REM”SUPERHATCHING C-64 

10361 GOTO 10415 

10362 REN”SUBROUT .F .SUPERHATCHING” 

10363 FT=1:FW=0:DIM FJC2000):DIM poe 





J: IF FB=2 THEN 10411 


10364 
10365 
10366 
10370 
10371 
10372 
10373 
10374 
10375 
10376 
10377 
10378 
10379 
10380 
10381 
10362 
10383 
10384 
1038S 
10386 
10387 
10388 
103893 
103390 
10391 
10332 
10393 
103934 
103935 
10336 
103397 
103398 
103393 
10400 
10401 
10402 
LO403 
LO4%O4 
10405 
LO4O6 
10407 


:PAINT FC,FD,1 
FE=INTC320/FAI 
FF=INTC200/FA) 

FOR FG=1 TO FE 
FY=0 
FX=FG*FA 

LOOP 

FX=FX-1*FT 
FY=FY+1 
EXIT IF FX=0 OR FY=200 
FH"TESTCFX, FY] 

IF FH=1 THEN 10380 
GOTO 10383 
FI“FI+1 
FJCFIJ=“FX 
FKCFIJ=FY 
END LOOP 
NEXT FG 
FOR FU=0 TO CFF-1) 
IF FB=e OR FW=1 THEN 10389 
FX=320 
GOTO 10390 
FX=0 
FY=FU*FA 
LOOP 
FX=FX-1*FT 
FY=FY+1 
EXIT IF FY=200 OR FX=0 
FM=TESTCFX,FY) 

IF FMN=1 THEN 10398 
GOTO 10401 
FIleFI+1 
FJCFIJ=FX 
FKCFIJ=FY 
END LOOP 
NEXT FU 


IF FB-3 THEN 10409 
:PAINT FC,FD,O 


FOR FO=1 TO FI 
:PLOT FJCFOJ,FKCFO),1 
NEXT FO: FI=0. 
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10408 GOTO 10414 

10409 FW=FW+1 

10410 IF FW=2 THEN 10404 

10411 FT=-1 

10413 GOTO 10364 

10414 RETURN 

10415 HIRES 0,7 

10416 FA=30 :REM’DISTANCE BETWEEN HATCHI 

NG LINES” 

10417 FB=3. :REM”RIGHTC1),LEFT(C2),CROSSC 

3)HATCHING” 

10418 FC=100:REM”’X COORDINATE OF MARKING 
DOT” 

10419 FD=SO :REM”’Y COORDINATE OF MARKING 
DOT” 

10420 :REC 80,20,100,90,1 

10421 GOSUB 10362 

10422 GOTO1042e2 


READY. 
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B2 TECHNICAL DRAWINGS AS THE SUM OF SMALL 
BUILDING BLOCKS 


We now have the most important elements that we need in order to make 
technical drawings. So let us begin to produce a complete drawing with 
the help of our computer. 


For this purpose, we find ourselves a simple shape to put together from 
our building blocks. We represent it as described in the drawing standards 
but do not hesitate to deviate from them if they are unsuitable for - 
computers. We complete the drawing by adding dimensions and legends 
and will also be learning something about scales and "windows". 


At the same time, we shall also be learning a few things about how to 
handle our kit of program tools. In Section B1, we saw, first and 
foremost, what these tools looked like. 


Here, in Section B2, we shall be learning how to handle them. What will 
be produced in the process is a technical drawing. And we should not 
forget that we only have the basic tools at our disposal at present. This 
chapter is also intended to refine these tools and introduce new ones. 


B2.1 FROM THE BASIC ELEMENTS TO THE FINISHED 
DRAWING 


We shall, of course, be devising a shape or a tool that will not necessarily 
be of any practical use from a technical viewpoint. It will use as many of 
the programs we have already created as possible and provide the best 
explanation of the points still to be discussed. 


I should like here to place particular stress on the drawing as a whole. 
The representation of the shape itself is only part of the whole. What I 
find more important here is to show what steps have to be taken in order 
to obtain a drawing as a unit. As we do so, it will become clear that CAD 
is more than mere graphics. 


I shall not be going into the rules on how a technical drawing should 
usually be put together. I assume that you know how to do this. I do not 
think I am wrong. Otherwise, you would not be tackling CAD. The object 
is to show how these rules can be applied using the computer. Actually, 
the last sentence is somewhat superfluous but it is quite useful, from time 
to time, to remember what we are actually trying to do and where we have 
Started from. 
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B2.2 SPLITTING UP INTO DIFFERENT PLANES 


A drawing is produced in several steps and, which is quite important, in 
several planes. Here it is again, the multi-plane concept. I should now like 
to examine it more closely. 


Imagine you are producing the different elements of your drawing on a 
number of transparent sheets. For example, the shape to be represented, 
or even individual parts of it, on one sheet. The dimensions on another. 
The text on yet another sheet and, possibly, all the hatching on the next 
sheet. The number of planes depends entirely on your requirements and 
on the work that you intend to put in. A bit more about that later. 


Now imagine that you place some or all of the sheets on top of one 
another. In this way, you get a quite varied picture of your drawing with 
quite varied information contents. You can see at once that it is very easy 
for you to have access to quite specific items of information in this way. 


For example, you can change one plane of the drawing without this 
alteration affecting the others. Moreover, this is one of the great 
advantages of CAD: alterations to drawings become child's play, which 
you really cannot say of the conventional technique. 


You can also store texts in different languages on separate planes. In this 
way, an English drawing can become a French one or a German one 
without any trouble at all. 


You can lay down different dimensions and variants for the same part or 
place a grid under the drawing to simplify your planning. When you have 
finished, you simply take the grid away by not using this sheet’. 


And so you can see the great advantages of working on several planes. If 
we want to do CAD properly, right from the outset, we use these different 
planes. 


Earlier, I said that you could use as many planes as you wanted. This is 
true, but one point still has to be made clear. Commercial systems have a 
limited number of planes. In most cases, there are over 100 planes. Then 
how is it that we have an unlimited number of planes with our small 
computer? The reason is that we use a different type of plane. 


Professional systems work using memory planes, i.e. there is a plane in 
the computer which actually takes the form of a mathematically composed 
pattern in a memory area specially designed for it. As every memory area, 
however big it is, is full sooner or later, these systems have only a limited 
number of planes. Advantage: direct, swift retrieval. 
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We use program planes. Our computer cannot, of course, directly store a 


high-resolution picture. (But we will be creating a tool to do this with in 
one of the following chapters). 


We configure our programs in such a way as to obtain separate planes. 
Drawback: we need to use more grey matter and need a little patience. But 
we don't have any limitations here - in terms of planes, I mean. 


B2.2.1_ USING A GRID TO HELP YOU DETERMINE THE 
COORDINATES OF A DRAWING 


Up to now, we have used millimeter-ruled graph paper and pencils in 
order to plot coordinates. That worked quite well, but it is not suitable for 
CAD. What we want is to be completely independent of such aids. 


The GRID program covers our screen with a grid of dots and lines to help 
us plot the coordinates directly on the screen. It is, if you like, an 
electronic graph paper. 


When we start constructing, we retrieve our grid and draw in on it all the 
lines and parts of our drawing we want. When we have finished 
constructing, we turn off the grid. What we are left with is the actual 
drawing. 


As you have realized, our grid is nothing other than a separately operable 
drawing plane which shows us the locations of the coordinates on the 
screen. 


You can choose a fine or a coarse grid. All grid line intervals from 1 to 
320 or 200, as the case may be, are possible, but not all of them are 
useful. 


Grids with 5 and 10-dot line intervals are practical. If you take these two 
values, lines 50, 100, 150, etc., can be identified and made to stand out 
using numbers. 


You can select the finess of the grid using variable GA. GZ is the mode. 
If it is 1, the grid is drawn, if it is 0, it is deleted. Of course, this variable 
only takes on its proper meaning in conjunction with INPUT. I have 
brought it into the program here so that it will be easier later on to 
construct a program allowing input into the computer. 


And, as I have already said: you can, of course, starting from the 


RETURN, change the end of the program to suit your requirements, as in 
any other program. 
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10430 
104%31 
10432 
10433 
10434 
10435 
10436 
10437 
10438 
104393 
10440 
LO4%%1 
10442 
10443 
LO444 
LO44S 
10446 
10447 
104%46 
10%49 
10450 
10451 
10456 
10457 
10458 
10459 
10460 
10461 
104%6e 
10463 
LO4Y6Y 
10465 
10466 


READY. 
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REM”GRID C-128” 

:GRAPHIC 1,1:GOTO 10463 

REM” SUBROUT.F.GRID” 
GB-INTC320/GA):GE=0 
GC=INTC200/GA) 
FOR GD=1 TO GB 

GE=GE+GA: GK=0 

GFS=STRSCGE3) 

FOR GJ=1 TO GC 

GK=GK+GA 

:: DRAW G2Z,GE,GK 

NEXT GJ 

IF GE=SO OR GE=100 THEN 10446 
IF GE=1S50 OR GE=200 THEN 10446 
IF GE=2S50 OR GE=300 THEN 10446 
GOTO 10448 

DRAW GZ,GE,OTOGE,200 

CHAR 1, CGE-813/8,0,GFS 

NEXT GD 

FOR GF=1 TO GC 

GH=-GH+GA 

GIS-STRSCGH3 

IF GH=SO OR GH=100 THEN 10459 
IF GH=1S0O OR GH=200 THEN 10459 
GOTO 10461 

DRAWGZ ,O, GHTO320, GH 

CHAR1 ,1,C(GH-8)/8,GI$ 

NEXT GF . 

RETURN 

GA=S :REN”GRID LINE INTERVAL” 
G2=1 :REM”CHARACTER MODE” 
GOSUB 10432 

GOTO 104%66 
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10430 
10431 
104%3e 
10433 
10434 
10435 
10436 
10437 
10436 
1043S 
10440 
10441 
104%4e 
10443 
10444 
10445 
10446 
104%47 
10448 
10449 
104%50 
10451 
10456 
10457 
104568 
10453 
10460 
10461 
10462 
10463 
10464 
10465 
10466 


READY. 
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REM”GRID E=67 
HIRES 0,7:GOTO 10%63 
REM” SUBROUT.F.GRID” 
GB=INTC320/GA)]:GE=0 
GC=-INTCe&00/G6AI 


FOR GD=1 TO GB 

GE=GE+GA:GK=0 

GFS=STRSCGE) 

FOR GJ=1 TO GC 

GK=GK+GA 

:PLOT GE,GK,G2 

NEXT GJ 

IF GE=SO OR GE=100 THEN 10446 
IF GE=150 OR GE=200 THEN 10446 
IF GE=250 OR GE=300 THEN 10446 
GOTO 10448 

:LINE GE,O,GE,e00,62 

: TEXT CGE-8),0,GFS$,1,1,8 

NEXT GD 

FOR GF=1 TO GC 

GH=GH+GA 

GIS="STRSCGHI 

IF GH=SO OR GH=100 THEN 104593 
IF GH=1S5S0 OR GH=200 THEN 10459 
GOTO 10461 


: LINE 0,GH,320,GH,G2 

:TEXT 0, (GH-8),G1$,1,1,8 

NEXT GF 

RETURN 

GA=S :REM”’GRID LINE INTERVAL” 
G2=1 :REM”’CHARACTER MODE” 
GOSUB 10432 


GOTO 10466 
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B2.2.2 DRAWING 


What I mean by a drawing here is the actual representation of a body. I do 
not want to keep on talking about "bodies"; this is an awkward word and 
[ usually attach a completely different meaning to it. 


The PLANE1+2 program gives us a picture of a tool which represents our 
first plane. This drawing is a "rigid" one, i.e. we generate it only with the 
help of the program, and not by interaction or conversation with the 
computer. We could also do that, as you know. But this does not concern 
us here. All we need is a basic plane over which we can place our other 
planes. 


In lines 10000 to 10462, we produce the tool, i.e. the program elements, 
that we need in order to make the drawing. 


You will notice that in the Commodore 64 version I have slightly changed 
the program elements here. Instead of GOSUB, we now use EXEC and, 
instead of RETURN, we use END PROC. I have introduced the 
procedures as subroutines. Please see the manual for SIMON'S BASIC if 
you are not familiar with the handling of procedures. 


Subroutine KOMBI1 (procedure in SIMONS' BASIC) extends from line 
10600 to 10867. Here, PLANE1 is put together from the program 
building blocks. 


It is easy to see that the variables could be entered in conversation mode, 
and this is what will happen in practice. Here, I have listed everything to 
clarify the principle. 


Subroutine KOMBI2 (procedure in SIMONS' BASIC) combines the 
building blocks to form PLANE2. This plane is used to provide a separate 
hatching mask. It extends from lines 10872 to 10896. 


Subroutine MIX1 brings together KOMBI1 and KOMBI2. This means, 
quite simply, that planes 1 and 2 are superimposed here. 


I am sure that you can clearly see here that we are working with a number 


of independent program planes and that we are thus completely free to 
choose which planes we mix. 
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FIGURE 4: PLANE 2 
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10000 
10001 
10002 
10003 
10004 
10005 
10006 
10007 
10008 
10003 
10010 
10011 
10012 
10013 
10014 
10015 
10016 
10017 
10018 
10013 
10102 
10103 
10104 
10105 
10106 
10107 
10108 
10109 
10110 
10111 
10112 
10113 
10114 
10115 
10116 
10117 
10118 
10119 
10120 
10121 
10122 
10123 
10124 
10125 
10126 
10128 


REM "PLANE 1+2 C-12B” 

GOTO 10900 

REM "SUBROUT.F.LINE THICKNESS” 
IF AB=AD THEN 10012 

FOR AJ=1 TO AE 

AF=AAtAT 

AG=AB 

AH=AC+AT 

AI=AD 

: DRAW 1,AF,AG TO AH,AI 

NEXT AJ 

GOTO 10019 

FOR AK=1 TO AE 

AF=AA 

AG=AB+AK 

AH=AC 

AI=AD+AK 

:DRAW 1,AF,AG TO AH,AI 

NEXT AK 

RETURN 

REM *"SUBROUT.F.DASHED LINE” 
CE=ABS(CC-CAI 

CF=ABSCCB-CD) 

IF CA=CC THEN 10137 

IF CB=CD THEN 10158 
CG=INTCSORCC16*CE*%2)/CCF*2+CE%2))) 
CH=INTCCCG*CF)/C(CEJ) 
CI=INTCCE/CG] 

CJ=-1 

IF CA<CC AND CD<CB THEN 10115 
IF CA<CC AND CB<CD THEN 10117 
IF CC<CA AND CD<CB THEN 10120 
IF CC<CA AND CB<CD THEN 10123 
CG=-CG 

GOTO 10125 

CG=-CG 

CH=-CH 

GOTO 10125 

CG=CG 

CH=CH 

GOTO 10125 

CH=-CH 

GOTO 10125 

CK=CA+CG 

CL=CB+CH 

FOR CM=1 TO CI 
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101e3 
10130 
10131 
10132 
10133 
10134 
10135 
10136 
10137 
10138 
10139 
10140 
1011 
101%2 
10143 
10144 
10145 
10146 
101447 
10149 
10150 
10151 
1015e 
10153 
10154 
10155 
10156 
10157 
10158 
101593 
10160 
10161 
10162 
10163 
10164 
10165 
101665 
10168 
10169 
10170 
10171 
10172 
10173 
10174 
10175 
10176 
10177 
10178 
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GOSUB 10178 

CK=CK-CG 

CL=CL-CH 
CN=CK-Ce*CG) 
CO=CL-Ce*CH) 

:DRAW CP,CK,CL TO CN,CO 
NEXT CM 

GOTO 10186 

REM "VERTICAL LINES” 
CI“INTCCF/4) 

CJ=-1 

CH=4 

IF CB<CD THEN 10143 
IF CO<CB THEN 1014S 
CH=-CH 

GOTO 10147 

CH=CH 

GOTO 10147 

CL=CB+CH 

FOR CN=1 TO CI 

GOSUB 10178 

CK=CA 

CL=CL-CH 

CN=CA 

CO=-CL-Ce*CH) 

:DRAW CP,CK,CL TO CN,CO 
NEXT CM 

GOTO 10186 

REM "HORIZONTAL LINES” 
CI" INTCCE/4) 

CJ=-1 

CG=4 

IF CA<CC THEN 10164 
IF CC<CA THEN 10166 
CG=-CG 

GOTO 10168 

CG=CG 

CK=CA+CG 

FOR CM=1 TO CI 

GOSUB 10178 

CK=CK-CG 

CL=CB 

CN=CK-C2*CG) 

CO=CB 

:DRAW CP,CK,CL TO CN,CO 
NEXT CM 

GOTO 10186 

REM ”LOOPS” 


60 


Abacus Software CAD for the C-128 and C-64 


101739 CJ=CJ*C-13 

10180 IF CJ=1 THEN 1018e 

10181 IF CJ=-1 THEN 10184 

10162 CP=1 

10183 GOTO 10185 

10184% CP=0 

10185 RETURN 

101866 RETURN 

10202 DHS="1020e212e21202000e2”:REN CENTER 
LINE 

10203 XI=VALCMIDSCDHS, DC*e+1,13)-1 

10204 YI=“VALCMNIDSCDHS, DC*2+2,133-1:CX=0: 
C2=0 | 
10205 CX=CX+1:C2=CZ+1: IFCZ2=110RCZ=1e20RC2 
=150RC2=16THENPT=0: GOTO10e08 

10206 IFC2=17THENCZ=1 

10207 PT=1 

10208 IFCX>DEORDA> 3190RDB> iSSTHENRETURN 
1020S FORXX=1TODD: DRAW PT,DA, DB: DA™DAtXI 
: DB=DB+YI:NEXT:GOTO10205 

10262 REM”SUBROUT.F .DOUBLE” 

10283 FORDZ=OTO4: DRAW1 , DA-DZ, DB-DZ2TODA+D 
2, DB-D2Z: NEXT: RETURN 

10284 FORDZ=OTOS6: DRAW! , DA, DB-D2TODA+6—-D2 
, DB-D2: NEXT: RETURN 

10285 FORDZ=OTOY: DRAW! , DA+DZ , DB-DZTODA+D 
2, DB+D2: NEXT: RETURN 

10286 FORDZ=OTOS6: DRAW! , DA, DB+DZTODA+6—-DZ 
, DB+DZ: NEXT: RETURN 

10287 FORDZ=OTOY: DRAW! , DA-DZ, DB+DZTODA+D 
2, DB+DZ: NEXT: RETURN 

10288 FORDZ=OTOS6: DRAW1 , DA, DB+DZTODA-6+D2Z 
, DB+D2Z2: NEXT: RETURN 

10289 FORDZ=OTO'4: DRAW! , DA-D2Z , DB+DZ2TODA-D 
2, DB-DZ:NEXT: RETURN 

10290 FORDZ=OTOE: DRAW! , DA, DB-DZTODA-6+D2 
, DB-DZ: NEXT: RETURN 

10291 REN START 

10292 ONDCGOTO10eS4 , 10295, 10296, 10e97,10 
e986, 10299, 10300 

10293 GOSUB10283: DRAW1 , DA, DBTODA, DB-DE: D 
B=DB-DE : GOSUB10287 : RETURN 

10294 GOSUB10284: DRAW1 , DA, DBTODA+DE , DB-D 
E: DA=DA+DE: DB=DB-DE : GOSUB10288: RETURN 
102935 GOSUB10285: DRAW1 , DA, DBTODA+DE , DB: D 
A=DA+DE : GOSUB10269: RETURN 

10296 GOSUB10286: DRAW1 , DA, DBTODA+DE , DB+D 
E: DA=DA+DE : DB=DB+DE : GOSUB10290: RETURN 
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10297 GOSUB10287 : DRAW! , DA, DBTODA, DB+DE:D 
B-DB+DE : GOSUB10283: RETURN 

10298 GOSUB10288: DRAW1 , DA, DBTODA-DE , DB+D 
E: DA=DA-DE : DB=DB+DE: GOSUB10284: RETURN 
1029393 GOSUB102B9S: DRAW1 , DA, DBTODA-DE , DB: D 
A=DA-DE : GOSUB1028S: RETURN 

10300 GOSUB10250: DRAW1 , DA, DBTODA-DE , DB-D 
E: DA=DA-DE : DB=DB-DE : GOSUB10286: RETURN 
1031e REN "COMPLETE ARROWHEAD” 

10313 GOTO10336 

10314 REMN”’DRAW ARROW HEADS” 

10315 FORDZ=OTO4: DRAW! , DA-D2Z2 , DB-DZTODA+D 
2, UB-D2Z: NEXT: RETURN 

10316 FORD2=OTOS6: DRAW! , DA, DB-DZ2TODA+6-D2Z 
, DB-DZ: NEXT: RETURN 

10317 FORDZ=OTO4: DRAW! , DA+DZ, DB-DZTODA+D 
2, DB+D2Z: NEXT: RETURN 

10318 FORDZ=OTOE: DRAW! , DA, DB+DZ2TODA+6-D2Z 
» DB+DZ: NEXT: RETURN 

103193 FORDZ=OTO4: DRAW1 , DA-D2Z , DB+D2TODA+D 
2, 0B+D2: NEXT: RETURN 

10320 FORD2Z=OTOS6: DRAW! , DA, DB+DZ2TODA-6+D2Z 
, DB+D2Z: NEXT: RETURN 

103e1 FORDZ=OTOY4: DRAW! , DA-DZ, DB+DZ2TODA-D 
2,DB-D2: NEXT: RETURN 

10322 FORDZ=OTO6: DRAW1 , DA, OB-DZTODA-6+D2 
, DB-DZ: NEXT: RETURN 

103e3 DM=ABSCDNJ:REM DRAW CONNECTING LIN 
E 

103e% ONDCGOTO10326, 10327 , 10328 ,10329,10 
330, 10331 , 10332 

103e5 GOSUB10315S: DRAW1 , DA, DBTIODA, DB-DE:D 
B=DB-DE : GOSUB10319: RETURN 

103c6 GOSUB10316: DRAW! , DA, DBTODA+DE , DB-D 
E: DA=DA+DE : DB=DB-DE : GOSUB10320: RETURN 
103e7 GOSUB10317: DRAW1 , DA, DBTODA+DE , DB:D 
A=DA+DE : GOSUB10321: RETURN 

10328 GOSUB10318: DRAW1 , DA, DBTODA+DE , DB+D 
E: DA=DA+DE : DB=DB+DE : GOSUB10322: RETURN 
10323 GOSUB10319: DRAW1,DA, DBTODA, DB+DE:D 
B=DB+DE : GOSUB10315: RETURN 

10330 GOSUB10320: DRAW1 , DA, DBTODA-DE , DB+D 
E: DA=DA—DE : DB=DB+DE : GOSUB10316: RETURN 
10331 GOSUB10321: DRAW1, DA, DBTODA-DE,DB:D 
A=DA-DE : GOSUB10317 : RETURN 

10332 GOSUB10322: DRAW1 , DA, DBTODA-DE, DB-D 
E: DA=DA-DE : DB=DB-DE : GOSUB10318: RETURN 
10333 REM 
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10334 GOSUB 103e3 

10335 RETURN 

10336 REM”START OF ARROW HEAD” 

10338 REM”DRAW DINEMSION LINES” 

10339 DO=DN+3: IFDN=2THENDO=-DQ 

10340 ONDCGOTO10342, 10343, 10344, 10345,10 
346 , 10347 , 10348 

10341 DRAW1, DA, DBTODA+DO, DB: DRAW! , DA, DB- 
DETODA+DO , DB-DE: DA=DA+DM*SGNC DQ) : GOSUB10 
323: RETURN 

10342 DRAW1,DA, DBTODA+DO, DB+DQ: DRAW1 , DAt 
DE , DB-DETODA+DQ+DE , DB-DE+DQ: DA=DA+DMN*SGN 
CDQ) : DB=DB+DN*SGNC DO) : GOSUB10323: RETURN 

10343 DRAW1,DA, OBTODA, DB+DQ: DRAW1 , DA+DE, 
DBTODA+DE , DB+DO: DB=DB+DN*SGNC DO): GOSUB10 
323: RETURN 

10344 DRAW1,DA, DBTODA-DQ, DB+DQ: DRAW , DAt 
DE , DB+DETODA-DO+DE , DB+DE+DQ: DA=DA-DMN*SGN 
(DQ) : DB=DB+DN*SGNC DQ) : GOSUB10323: RETURN 

10345 DRAW1,DA, DBTODA-DQ, DB: DRAW1 , DA, DB+ 
DETODA-DO, DB+DE : DA=DA-DMN*SGNC DQ) : GOSUB10 
323: RETURN 

10346 DRAW1, DA, DBIODA-DO, DB-DQ: DRAW1 , DA- 
DE , DB+DETODA-DO-DE , DB+DE-DQ: DA=DA-DMN*SGN 
CDQ): DB=DB-DMN*SGNCE DQ) : GOSUB10323: RETURN 

10347 DRAW1,DA, OBTODA, DB-DQ: DRAW, DA-DE, 
DBTODA-DE , DB-DO: DB=DB-DN*SGNC DQ) : GOSUB10 
323: RETURN 

10348 DRAW1, DA, DBTODA+DO, DB-DQ: DRAW] , DA- 
DE , DB-DETODA+DOQ—DE , DB-DE-DQ: DA=DA+0MN*SGN 
(DQ) : DBB=DB-DMN*SGNCDQ) : GOSUB10323: RETURN 


10360 
10361 
1036e 
10363 
10364 
10365 
10366 
10370 
10371 
1037¢e 
10373 
10374 
10375 
10376 
10377 
10378 
10373 


REM” SUPERHATCHING” 

FAST: FO=FQ+1: IFFQ>1THEN10363 
DIM FJC2000):DIN FKCe000) 
FT=1:FW=0: IF FB=e THEN 10411 
::PAINT 1,FC+1,F0+1 
FE=INTC320/FAI 
FF=INTCe200/FA) 

FOR FG=1 TO FE 

FY=0 

FX=FG*FA 

REM LOOP 

FX=FX-1*FT 

FY*FY+1 

IF FX=0 OR FY=200 THEN1O384 
LOCATEFX, FY: FH=RDOTCC) 

IF FH=1 THEN 10380 

GOTO 10383 
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10380 
10381 
1038e 
10383 
10384 
10385 
10386 
10387 
10388 
103893 
103390 
10391 
10392 
10393 
10334 
10335 
10336 
10397 
10398 
103993 
10400 
10401 
10402 
10403 
10404 
10405 
10406 
10407 
10408 
10403 
10410 
10411 
10413 
104%14 
10432 
10433 
104%34 
10435 
10436 
10437 
10438 
10439 
10440 
LO%41 
10442 
10443 
1O4%44 
10445 





FI=FI+1 
FJCFIJ=FX 
FKCFIJ=FY — 8 
GOTO10373 
NEXT FG 

FOR FV=0 TO CFF-1) 

IF FB=e OR FW=1 THEN 10389 
FX=320 

GOTO 103390 

FX=0 

FY=FU*FA 

REM LOOP 

FX=FX-1*FT 

FY=FY+1 

IF FY=200 OR FX=OTHEN10402 
LOCATEFX, FY: FMN=RDOTC2) 

IF FMN=1 THEN 10398 

GOTO 10401 

FIl=FI+1 

FICFIJ=FX 

FKCFII=FY 

GOTO10391 

NEXT FV 

IF FB=3 THEN 10409 

::PAINT O,FC+1,FD+1 

FOR FO=1 TO FI 

: : DRAW1, FJCFO),FKCFO3 

NEXT FO: FI=0 

GOTO 10414 

FW=FW+1 

IF FW=2 THEN 10404 

FT=-1 

GOTO 10364 

SLOW: PRINT””: : RETURN 
REM”GRID” 
GB=INTC320/GA):GE=0 
GC=INTC200/GA) 

FOR GD=1 TO GB 
GE=GE+GA:GK=0 

GFS“STRSCGE) 

FOR GJ=1 TO GC 

GK=GK+GA 

:: DRAW GZ,GE,GK 

NEXT GJ 

IF GE=SO OR GE=100 THEN 10446 
IF GE=1S0 OR GE=200 THEN 10446 
IF GE=2S0 OR GE=300 THEN 10446 
GOTO 104468 
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10446 
10447 
10448 
10443 
10450 
10451 
10%56 
10457 
10458 
104593 
104%60 
10461 
104%6e 
10536 
10599 
10600 
10601 
1060e 
10603 
10604 
10605 
10607 
10608 
10603 
10610 
10611 
1061e 
10613 
10614 
10615 
10616 
10617 
10618 
10613 
106c0 
106e1 
106ee 
106e3 
106e4% 
106e5 
106e6 
10627 
10628 
106e3 
10630 
10631 
10632 
10633 


CAD for the C-128 and C-64 


ere RS ns 


:DRAW GZ,GE, OTOGE,200 

:CHAR 1, (GE-81/8,0,GFS 

NEXT GD 

FOR GF=1 TO GC 

GH=GH+GA 

GIS=STRSCGH) | 

IF GH=SO OR GH=100 THEN 10459 

IF GH=1S0 OR GH=200 THEN 10459 
GOTO 10461 

: DRAWGZ, 0, GHTO320, GH 

:CHAR1,1, (GH-8)/8,G1S 

NEXT GF 

RETURN 

REM” PLANE1” 

REM ee err err rer rer ee eT ee Tt hk Be 
REM KOMBI1 

DA=10 

DB=80 

DC=2 

pD=3 

DE=240 

GOSUB 10202 

DA=260 
DB=10 
DC=4 
pp=3 
DE=80 
GOSUB 
AA=15 
AB=SO 
AC=15 
AD=110 
AE=2 
GOSUB 10002 
AA=20 

AB=45 

AC=20 
AD=115 

AE=2 

GOSUB 10002 
AA=15 
AB=SO 
AC=20 
AD=45 
AE=2 
GOSUB 
AA=15 
AB=110 


1020e 


1000e 
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106344 
10635 
10636 
10637 
10638 
10639 
10640 
10641 
10642 
10643 
10644 
LO64S 
10646 
1067 
10648 
10649 
10650 
10651 
10652 
10653 
10654 
10655 
10656 
10657 
106568 
10659 
10660 
10661 
10662 
10663 
10664 
10665 
10666 
10667 
10668 
10669 
10670 
10671 
10672 
10673 
10674 
10675 
10676 
10677 
106786 
10679 
10680 
10681 
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AC=20 
AD=115 

AE=e 

GOSUB 10002 
AA=e1 

AB=44 

AC=30 

AD=44 

AE=2 

GOSUB 1000e 
AA=e21 
AB=-113 
AC=30 
AD=113 

AE=2 

GOSUB 10002 
AA=16 

AB=49 

AC=30 

AD=49 

AE=1 

GOSUB 10002 
AA=16 
AB=109 
AC=30 
AD=109 

AE=1 

GOSUB 10002 
AA=30 

AB=3e 

AC=30 
AD=128 

AE=2 

GOSUB 10002 
AA=85 

AB=15 

AC=85 
AD=145 

AE=e 

GOSUB 1000e 
AA=38 

AB=19 

AC=76 

AD=19 

AE=c 

GOSUB 10002 
AA=38 | 
AB=43 
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1068e 
10683 
10684 
10685 
10686 
10687 
10688 
10683 
106390 
10691 
10692 
10693 
10694 
106395 
10696 
106397 
10698 
10633 
10700 
10701 
10702 
10703 
10704t 
10705 
10706 
10707 
10708 
107093 
10710 
10711 
10712 
10713 
10714 
10715 
10716 
10717 
10716 
107135 
10720 
107e1 
1072e 
107e3 
10724 
107¢e5 
10726 
10727 
10728 
10723 


CAD for the C-128 and C-64 


en nn 


AC=78 

AD=43 

AE=ce 

GOSUB 1000c 
AA=38 
AB=114 
AC=76 
AD=114 

AE=e 

GOSUB 1000e 
AA=38 
AB=137 
AC=76 
AD=137 

AE=e2 

GOSUB 1000e 


-CIRCLE1,115,80,85,85,245,295,0,3 
-CIRCLE1,115,80,64,84,245,295,0,3 
-CIRCLE 1,0,80,85,85,65,115,0,3 
-CIRCLE 1,0,80,86,86,65,115,0,3 
-CIRCLE 1,43, 32,13,13,205,335,0,3 
-CIRCLE 1,4%3,32,12,12,205,335,0,3 
-CIRCLE 1,72,32,13,13,25,155,0,3 
-CIRCLE 1,72,32,14,14,25,155,0,3 
-CIRCLE 1,43,128,13,13,205,335,0,3 
-CIRCLE 1,43,128,12,12,205,335,0,3 
-CIRCLE 1,72,128,13,13,25,155,0,3 
-CIRCLE 1,72,128,14,14,25,155,0,3 
AA=B6 

AB=14 

AC=30 

AD=14 

AE=2 

GOSUB 10002 

AA=BE 

AB=145 

AC=90 

AD=145 

AE=2 

GOSUB 10002 

AA=30 

AB=10 

AC=90 : 
AD=180 

AE=2 

GOSUB 10002 

AA=91 

AB=9 
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OE 


10730 
10731 
10732 
10733 
10734 
10735 
10736 
10737 
10738 
10739 
10740 
10741 
10742 
10743 
10744 
1074S 
10746 
10747 
10748 
10749 
10750 
10751 
10752 
10753 
10754 
10755 
10756 
10757 
10758 
10759 
10760 
10761 
10762 
10763 
10764 
10765 
10766 
10767 
10768 
10769 
10770 
10771 
10772 
10773 
10774 
10775 
10776 
10777 


AC=140 

AD=9 

AE=e 

GOSUB 1000e 
AA=140 
AB=10 
AC=140 
AD=150 

AE=2 

GOSUB 10002 
AA=1441 
AB=1S0 
AC=170 
AD=150 

AE=e 

GOSUB 10002 
AA=170 
AB=1S51 
AC=170 
AD=181 

AE=e2 

GOSUB 10002 
AA=91 
AB=160 
AC=171 
AD=180 

AE=e2 

GOSUB 10002 
AA=91 

AB=40 
AC=141 
AD=40 

AE=e 

GOSUB 10002 
AA=S1 

AB=44 
AC=16e2 
AD=44 

AE=e2 

GOSUB 10002 
AA=91 

AB=49 
AC=130 
AD=49 

AE=1 

GOSUB 10002 
AA=91 
AB=109 
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10778 
10779 
107860 
10781 
1078e 
10783 
10784 
10785 
10786 
10787 
10788 
10783 
107390 
107391 
10792 
10793 
10794 
10795 
10796 
10797 
107398 
10793 
10800 
10801 
1080e 
10803 
1080't 
10805 
10806 
10807 
10808 
10803 
10810 
10811 
1081ie 
10813 
10614 
10815 
10816 
10817 
10818 
10819 
106820 
108e1 
10Bec 
1086e3 
108e'4 
1086eS 
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AC=130 
AD=109 

AE=1 

GOSUB 1000e 
AA=91 
AB=113 
AC=18e 
AD=113 

AE=e 

GOSUB 10002 
RA=91 
AB=117 
AC=14t1 
AD=117 

AE=c 

GOSUB 1000c 
AA=110 
AB=10 
AC=110 
AD=44 

AE=e 

GOSUB 10002 
AA=110 
AB=114 
AC=110 
AD=180 

AE=e 

GOSUB 1000e 
AA=131 
AB=45 
AC=131 
AD=113 

AE=1 

GOSUB 1000c 
AA=141 
AB=19 
AC=16e 
AD=193 

AE=ce 

GOSUB 1000c 
AA=141 
AB=137 
AC=18e 
AD=137 

AE=ce 

GOSUB 1000e 
AA=1688 
AB=3c 
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10826 
10827 
10828 
108e9 
10830 
10831 
10832 
10833 
10834 
1083S 
10836 
10837 
10838 
108393 
10840 
10841 
10842 
10843 
10844 
10845 
10846 
10847 
10848 
10849 
10850 
10851 
10852 
10853 
10854 
1085S 
108565 
10857 
10858 
108S9 
10860 
10861 
10862 
10863 
LOB64 
10865 
10866 
10867 
10868 
10870 
10871 
10872 
10874 
10875 
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ee 


AC=188 

AD=128 

AE=e2 

GOSUB 10002 

AA=113 

AB=160 

AC=170 

AD=160 

AE=2 

GOSUB 10002 

CA=135 

CB=16S 

CC=160 

CD=16S 

GOSUB 10102 

CA=135 

CB=165 

Cc-135 

CD=180 

GOSUB 10102 

CA=160 

CB=16S 

CC=160 

CD=180 

GOSUB 10102 
:CIRCLE1,10S5,60,85,85,65,115,0,1 
:CIRCLE1,105,80,86,86,65,115,0,1 
:CIRCLE1, 177,32,13,13,25,155,0,1 
:CIRCLE1,177,32,14,14,25,155,0,1 
:CIRCLE1, 77, 128, 13, 13, 25, 155, 0, 1 
:CIRCLE1,177,128,14,14,25,145,0,1 
: CIRCLE1, 260, 680, 30, 30 
:CIRCLE1,260,80,29,e29 

: CIRCLE1, 260,80,35,35 

:CIRCLE1, 260,80, 36,36 
:CIRCLE1,260,80,60,60 
:CIRCLE1,260,80,59,S9 

: CIRCLE1, ,e60, gO, 5993,59,0,360,0,60 
:CIRCLE1 , 260, 80,58,58,0,360,0,60 
:CIRCLE1,260,80,50,50 
:CIRCLE1,260,80,49,49 

RETURN 


FRE °? 6 2 5te aie te ste ie te te ate 20e BHe aie Ne He ie aC aie ae Ne 296 SHE Ste ate ake ate ate ate ate? 


REM” PLANE2” 

FREI ? 3 5 6 306 06 te te he SNe ae He 2 Re ae a Re HE te ate te te ae ae ake te? 
REM KOMBI2 

BOX 1,91,10,91+22,10+32 

FA=10 
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10876 
10877 
10878 
108793 
108680 
10861 
1088e 
10883 
10884 
10685 
10886 
10887 
10888 
10883 
10830 
10831 
1089e 
108393 
1089"t 
108395 
108356 
10897 
10898 
10300 
103901 
10390e 
103903 
109804 


READY. 


CAD for the C-128 and C-64 


a 


FB=e 

FC=100 

FD=20 

GOSUB 10360 

BOX 1,91,118,91+21,118+64% 
FD=150:FC=100 

GOSUB 10360 

BOX 1,112,10,112+30, 10+3c 
FB=1 

FC=12e0 

FD=20 

GOSUB 10360 

DRAW1 ,112,118TO140,1186 
DRAW1 ,112,118T011e, 160 
DRAW1 ,112,162T0170,16e 
DRAW1 ,170,162TO170,151 
DRAW1 ,170,151T0140,151 
DRAW1 ,140,151TO140,116 
FD=150 

GOSUB 10360 

RETURN 


REM” errr rTrTrT rr TTP eee tt St ek da 
REM 29 SHE SHG SAG NE Ne HG ME Re IE NE He NG ANE IE Ee Ne aN aN ale ae ae He aN ae ae ae ae He? 


REM MIX1 
GRAPHIC1,1 
GOSUB 1087ce 
GOSUB 10600 
GOTO10S04 
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10000 
10001 
10002 
10003 
10004 
1000S 
10006 
10007 
10008 
100093 
10010 
10011 
10012 
10013 
10014 
10015 
10016 
10017 
10018 
10019 
10102 
10103 
10104 
10105 
10106 
10107 
10108 
10109 
10110 
10111 
10112 
10113 
10114 
10115 
10116 
10117 
10118 
10119 
10120 
10121 
101e2 
10123 
10124 
10125 
10126 
10127 


CAD for the C-128 and C-64 


REMN”PLANES 1+2 C-64 

GOTO 103900 

REM LINE THICKNESS 

IF AB=AD THEN 10012 

FOR AJ“1 TO AE 

AF=AAtAI 

AG=AB 

AH=AC+AT 

AI=AD 

: LINE AF,AG,AH,AI,1 

NEXT AJ 

GOTO 10019 

FOR AK=1 TO AE 

AF=AA 

AG“AB+AK 

AH=AC 

AI=AD+AK 

: LINE AF,AG,AH,AI,1 

NEXT AK 

RETURN 

REM DASHED LINE 
CE=ABS(CC-CAI 

CF=ABSCCB-CD) 

IF CA=CC THEN 10137 

IF CB=CD THEN 10158 
CG=INTCSQRCC16*CE%2)/CCF*2+CE%2))) 
CH7INTC CCG*CFI/CCEI) 
CI-INTCCE/CG) 

CJ=-1 

IF CA<CC AND CD<CB THEN 10115 
IF CA<CC AND CB<CD THEN 10117 
IF CC<CA AND CD<CB THEN 10120 
IF CC<CA AND CB<CD THEN 10123 
CG=-CG 

GOTO 1012S 

CG=-CG 

CH=—-CH 

GOTO 1012S 

CG=CG 

CH=CH 

GOTO 10125 

CH=-CH 

GOTO 10125 

CK=CA+CG 

CL=CB+CH 

REM” HIRES” 
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10128 
101ie3 
10130 
10131 
1013e 
10133 
10134 
10135 
10136 
10137 
10138 
10133 
10140 
10141 
1014%e 
10143 
10144 
10145 
10146 
10147 
10149 
10150 
10151 
10152 
10153 
10154 
10155 
10156 
10157 
101568 
10153 
10160 
10161 
1016e 
10163 
10164 
10165 
10166 
10167 
10168 
10169 
10170 
10171 
1017¢2 
10173 
10174 
10175 
10176 


CAD for the C-128 and C-64 


a 


FOR CM=1 TO CI 
GOSUB 10178 
CK=CK-CG 

CL=CL-CH 
CN=CK-C2*CG) 
CO=CL-(C2*CH) 

»- LINE CK,CL,CN,CO,CP 
NEXT CM 

GOTO 10186 

REM "VERTICALS” 
CI=INTCCF/4) 

CI=-1 

CH=4 

IF CB<CD THEN 10143 
IF CD<CB THEN 10145 
CH=-CH 

GOTO 10147 

CH=CH 

GOTO 1017 

CL=CB+CH 

FOR CM=1 TO CI 
GOSUB 10178 

CK=CA 

CL=CL-CH 

CN=CA © 

CO=CL-C2*CH) 

-LINE CK,CL,CN,CO,CP 
NEXT CM 

GOTO 10186 

REM "HORIZONTALS” 
CI=INTCCE/4) 

CJ=-1 

CG=4 

IF CA<CC THEN 10164 
IF CC<CA THEN 10166 
CG=-CG 

GOTO 10167 

CG=CG 

REM” HIRES” 

CK=CA+CG 

FOR CM=1 TO CI 
GOSUB 10178 
CK=CK-CG 

CL=CB 

CN=CK-C2*CG) 

CO=CB 

LINE CK,CL,CN,CO,CP 
NEXT CM 
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ee 


10177 
10178 
10179 
10180 
101681 
10182 
10183 
10184 
10185 


10186, 


10202 
10203 
10204 
10205 
10206 
10207 
10208 
10282 
10283 
33393" 
10284 


10285 
10286 
10287 
10283 
102390 
10291 
10312 
10313 
3333” 
10314 


GOTO 10186 

REM ”LOOP” 

CJ=CI*C-1) 

IF CJ=1 THEN 10182 

IF CJ=-1 THEN 10184 

CP=1 

GOTO 10185 

CP=0 

RETURN 

RETURN 

REM CENTER LINE VERS.1 

DHS= ”"6666666666116611” 
DI=INTCDE/163) 
DJS=DUPCOHS, DI) 

:ROT DC,DD 

:DRAW DJS,D0A,DB,1 

RETURN 

REM e@DOUBLE DIMENSION ARROW 
EFS=”60688365555068888883655555555 


EJ$= ”375507888837555S550788888888 


EGS= "6B 33 
FHS=DUPCEGS, EE) 

EIS"EFS+EHS+EJS 

:ROT EC,ED 

:DRAW EIS,EA,EB,1 

RETURN 

REM 3COMPLETE DINENSION 
EFS=”6068836S5SS06888888365SS5S5555 


EJ$="375507888837555S55S507888888B885 


95511116” 


10315 
10316 
10317 
10318 
10319 
10320 
10321 
103e2 
10323 
10324 
10325 
10326 
10327 
10328 
10329 


EGS= td a) td 
EHS=DUPCEGS, EE) 
EKS$= "SS 39 
ELS=DUPCEKS, EN) 

IF EN= @ THEN 10326 
EOS=”"555333” 
EPS"ELS+E0DS 

EQS= ”"B 39 
ERS=DUPCEQS, EN) 
ESS-EPS+EFS+EHS+EJS+EOS+ERS 
GOTO 10331 

ETS="68” 
FUS=DUPCETS, EN) 
EUS=” 888000” 
EWS=EUS+EVUS 
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10330 ESS“EWS+EFS+EHStEJS+EVS+ELS 


1033¢e 
10333 
103344 
10360 
10361 
1036e 
10363 
10364 
10365 
10366 
10368 
10369 
10370 
10371 
1037¢e 
10373 
10374 
10375 
10376 
10377 
10376 
103793 
103680 
10381 
103Be 
10383 
10384 
10385 
10386 
10387 
10388 
10383 
103390 
103391 
10339e 
103393 
10334 
10335 
10336 
10397 
10398 
10393 
10400 
10401 
1040e 
10403 
104%04 


:ROT EC,ED 

-DRAW ESS,EA,EB,1 
RETURN 

REM HATCHING 
FQ@FOQ+1:IFFQ@>1 THEN 10363 
DIM FJC2000]:DIM FKC2000) 
FT=1:FW=0:1F FB@=@ THEN 10411 
:PAINT FC,FD,1 
FE=INTC320/FA) 
FF=INTC200/FA) 

FY=2 

FU=122-FD*FA 

FOR FG=1 TO FE 

FY=0 

FX=FG"FA 

LooP 

FX=FX-1*FT 

FY=FY+1 

EXIT IF FX=-O OR FY=200 
FH=TESTCFX, FY) 

IF FH=1 THEN 10380 
GOTO 10383 

FI=FI+1 

FICFII=FX 

FKCFIJ=FY 

END LOOP 

NEXT FG 

FOR FU=O TO (FF-1) 

IF FB=2 OR FW=1 THEN 10389 
FX=320 

GOTO 10390 

FX=0 

FY=FU*FA 

LOOP 

FX=FX-1*FT 

FY=FY+1 

EXIT IF FY=200 OR FX=0 
FM=TESTCFX, FY) 

IF FM=1 THEN 10398 
GOTO 10401 

FI=FI+1 

FICFIJ=FX 

FKCF1J=FY 

END LOOP 

NEXT FU 

IF FB=3 THEN 10409 
:PAINT FC,FD,O 
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10405 
10406 
10407 
10408 
10409 
10410 
104%11 
10413 
1O4%14 
104%32 
10433 
10434 
10435 
10436 
10437 
10438 
10439 
10440 
LO4%41 
10442 
10443 
LO4%4%4 
10445 
LO446 
10447 
LO“%4B 
LO44S 
104%50 
10451 
10456 
10%57 
10458 
10459 
10%60 
10461 
10%6e2 
105398 
105939 
10600 
10601 
10602 
10603 
10604 
10605 
10607 
10608 
10609 
10610 


FOR FO=1 TO FI 

:PLOT FJCFO),FKCFO),1 

NEXT FO:FI=0 

GOTO 10414 

FW=FW+1 

IF FW=2 THEN 10404 

FT=-1 

GOTO 10364 

RETURN 

REM GRID 
GB=INTC320/GA):GE=0 
GC=INTC200/GA} 

FOR GD=1 TO GB 

GE=GE+GA: GK=0 

GFS=-STRS(GE) 

FOR GJ=1 TO GC 

GK=GK+GA 

:PLOT GE,GK,G2Z 

NEXT GJ 

IF GE=SO OR GE=100 THEN 104465 
IF GE=1S0 OR GE=200 THEN 10446 
IF GE=250 OR GE=300 THEN 10445 
GOTO 10448 

: LINE GE,0,GE,200,62 

: TEXT CGE-8),0,GF$,1,1,8 

NEXT GD 

FOR GF=1 TO GC 

GH=GH+GA: GU=0 

GIS“STRS(GH) 

IF GH=SO OR GH=100 THEN 10459 
IF GH=150 OR GH=200 THEN 10459 
GOTO 10461 

:LINE 0,GH,320,GH,6z2 

: TEXT 0, (GH-8),G1I$,1,1,8 

NEXT GF 

RETURN 

REM” PLANE1” 

REM 7? He Me HE Ae He EAM He He SE BAe He NG NG BME SN Ne he ae SHE 2A 28 SE ae ah ate te te ae ” 
REM KOMBI1 

DA=10 

DB=a80 

DC=2 

DD=3 

DE=240 

GOSUB 10202 

DA=260 

DB=10 

DC=4 
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10611 

1061e 

10613 
10614 

10615 
10616 
10617 
10618 
106193 
106e0 
106e1 
106e2 
106e3 
106e4% 
106e5 
10626 
106e7 
10628 
10623 
10630 
10631 
1063¢e 
10633 
106344 
10635 
10636 
10637 
10638 
10633 
106440 
10641 
1064%e 
10643 
10644 
10645 
10646 
10647 
10648 
10643 
10650 
10651 
10652 
10653 
10654 
10655 
10656 

10657 

10656 
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DD=3 

DE=B0 

GOSUB 10202 
AA=15 

AB=50 

AC=15 
AD=110 

AE=2 

GOSUB 1000c 
AA=20 

AB=45 

AC=20 
AD=115 

AE=c2 

GOSUB 10002 
AA=15 

AB=50 
AC=20 

AD=45 

AE=2 

GOSUB 10002 
AA=15 
AB=110 
AC=20 
AD=115 

AE=e2 

GOSUB 10002 
AA=e1 

AB=44 

AC=30 

ADR 

AE=e 

GOSUB 1000e 
AA=el 
AB=113 
AC=30 
AD=113 

AE=2 

GOSUB 1000e 
AA=16 

AB=49 

AC=30 

AD=49 

AE=1 

GOSUB 1000c¢ 
AA=16 
AB=109 
AC=30 
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eee 


106539 
10660 
10661 
10662 
10663 
LO664t 
1066S 
1O666 
10667 
10668 
10669 
10670 
10671 
10672 
10673 
10674 
1067S 
10676 
10677 
10678 
10679 
10680 
10681 
10682 
10683 
10684 
1068S 
10666 
10687 
10688 
10689 
1LO630 
10691 
1063Se 
10693 
10694 
10695 
10696 
10697 
10698 
10699 
10700 
10701 
10702 
10703 
10704 
10705 
10706 


AD=109 

AE=1 

GOSUB 10002 
AA=30 

AB=3e 

AC=30 
AD=128 

AE=2 

GOSUB 10002 
AA=85 

AB=15 

AC=85 
AD=145 

AE=e 

GOSUB 10002 
AA=38 

AB=19 

AC=78 

AD=19 

AE=2 

GOSUB 10002 
AA=38 

AB=43 

AC=78 

AD=43 

AE=2 

GOSUB 10002 
AA=38 
AB=114 
AC=7B 
AD=114% 

AE=2 

GOSUB 10002 
AA=3B 
AB=137 
AC=76 
AD=137 

AE=e 

GOSUB 10002 


:ARC 115,80,245,295,3,85,85,1 
:ARC 115,80,245,295,3,84,84,1 
:ARC 0,B80,65,115,3,85,85,1 
:ARC 0,80,65,115,3,86,86,1 
:ARC 43, 32,205, 335,3,13,13,1 
:ARC 43, 32,205,335,3,12,12,1 
:ARC 72,32,25,155,3,13,13,1 
:ARC 72,32,25,155,3,14,14,1 
:ARC 43,128,205,335,3,13,13,1 


10707 
10708 
10703 
10710 
10711 
10712 
10713 
10714 
10715 
10716 
10717 
10718 
107193 
10720 
10721 
1072e 
10723 
10724 
107e5 
10726 
10727 
107268 
10723 
10730 
10731 
10732 
10733 
10734 
10735 
10736 
10737 
10738 
10733 
10740 
10741 
1072 
10743 
10744 
10745 
10746 
10747 
10748 
10743 
10750 
10751 
10752 
10753 
10754 
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:ARC 43,128,205,335,3,12,1e,1 
:ARC 72,128,25,155,3,13,13,1 
:ARC 72,128,25,145,3,14,14,1 


AA=86 

AB=14 

AC=S0 

AD=14 

AE=e 

GOSUB 1000e 
AA=686 
AB=145 
AC=S0 
AD=145 

AE=e 

GOSUB 1000e 
AA=30 

AB=10 

AC=30 
AD=160 

AE=e 


GOSUB 1000e 


AA=931 

AB=9 

AC=140 

AD=3 

AE=2 

GOSUB 10002 
AA=140 
AB=10 
AC=140 
AD=150 

AE=e2 

GOSUB 10002 
AA=141 
AB=150 
AC=170 
AD=150 

AE=2 

GOSUB 1000e 
AA=170 
AB=151 
AC=170 
AD=161 

AE=2 

GOSUB 1000ce 
AA=91 
AB=160 
AC=171 
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10755 
10756 
10757 
10758 
10759 
10760 
10761 
10762 
10763 
10764 
10765 
10766 
10767 
10768 
10769 
10770 
10771 
10772 
10773 
10774 
10775 
10776 
10777 
10778 
10779 
10780 
10781 
107682 
10783 
10784 
1078S 
10786 
10787 
10788 
10789 
10730 
10791 
107392 
10793 
107934 
1079S 
10736 
10797 
10798 
10739 
10800 
10801 
10802 
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AD=1680 

AE=e 

GOSUB 10002 
AA=S1 

AB=40 
AC=141 
AD=40 

AE=2 

GOSUB 10002 
AA=91 

AB=44 
AC=162 
AD=44 

AE=e 

GOSUB 10002 
AA=91 

AB=49 
AC=130 
AD=49 

AE=1 

GOSUB 10002 
AA=91 
AB=109 
AC=130 
AD=109 

AE=1 

GOSUB 10002 
AA=S1 
AB=113 
AC=-18e 
AD=113 

AE=e 

GOSUB 10002 
AA=91 
AB=117 
AC=141 
AD=117 

AE=2 

GOSUB 10002 
AA=110 
AB=10 
AC=110 
AD=44 

AE=2 

GOSUB 10002 
AA=110 
AB=114 
AC=110 
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10803 
10804 
10805 
10806 
10807 
10808 
10803 
106810 
10811 
1081ie 


10813 


10814 
10815 
10816 
10817 
10618 
108193 
10820 
106e1 
108ec 
10823 
108e4% 
10825 
10626 
10827 
10628 
108e9 
10830 
10831 
10832 
10833 
10834 
10835 
10836 
10837 
10838 
10833 
10B40 
10841 
10842 
10843 
LOBY4 
10845 
10846 
10847 
10846 
108649 
10850 


Abacus Software 


AD=1680 

AE=2 

GOSUB 10002 
AA=131 
AB=45 
AC=131 
AD=113 

AE=1 

GOSUB 10002 
AA=141 
AB=13 
AC=182 
aD=13 

AE=2 

GOSUB 10002 
AA=141 
AB=137 
AC=182 
AD=137 

AE=2 

GOSUB 10002 
AA=18B 
AB=32 
AC=188 
AD=128 

AE=2 

GOSUB 10002 
AA=113 
AB=160 
AC=170 
AD=160 

AE=2 


GOSUB 1000c 


CA=135 
CB=165 
CC=160 
CD=165 
GOSUB 10102 
CA=135 
CB=165 
EC=135 
CD=180 
GOSUB 1010e 
CA=160 
CB=165 
CC=160 
CD=180 
GOSUB 10102 
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10851 
10852 


10853 


10854 
10855 
10856 
10857 
10858 
10859 
10860 
10861 
1086e 
10863 
10864 
1086S 
10866 
10867 
10868 
10870 
10871 
10872 
10874 
10875 
10876 
10877 
10878 
10879 
10880 
10881 
10862 
10883 
10884 
10885 
10886 
10887 
10888 
10889 
10830 
108391 
10892 
10893 
108394 
108395 
108396 
10837 
10898 
109300 
103901 


105,80,65,115,1,85,85,1 
105,80,65,115,1,86,86,1 
177,32,25,155,1,13,13,1 
177 ,32,25,155,1,14,14,1 
: 177,128,25,155,1,13,13,1 
:ARC 177,128,25,145,1,14,14,1 
:CIRCLE 260,80, 30,30,1 
:CIRCLE 260,80,29,29,1 
:CIRCLE 260,80,35,35,1 
:CIRCLE 260,680, 36,36,1 
:CIRCLE 260,80,60,60,1 
:CIRCLE 260,80,59,59,1 

:ARC 260,80,0,360,60,59,59,1 
:ARC 260,80,0,360,60,58,58,1 
:CIRCLE 260,80,50,50,1 
:CIRCLE 260,680,49,49,1 

RETURN 

PRE PM”? 3 56 206 2 He ae He Hee 8 He Ne Ne NG He a aie ae ae ae ate a ate? 


REN” PLANEe” 

REM 9) SHE MME MOE THE HE HE NG Me Be HG Me HE HE INE BNE BE Se IE 30E 06 HE aie ae ae ate she ae He te”? 
REM KOMBI2 

:REC 91,10,22,32,1 

FA=10 

FB=2 

FC-100 

FD=20 

GOSUB 10360 

>REC 91,118,21,64,1 

FD=150:FC=100 

GOSUB 10360 

:REC 112,10,30,3e2,1 

FB=1 
FC=120 
FD=20 
GOSUB 
: LINE 
>: LINE 
> LINE 
>: LINE 
> LINE 
> LINE 
FD=150 
GOSUB 10360 
RETURN 


FEM °? i 0 2 He 6 He Be He he Se Be Se 0G 0b BH Ne BE SHE SNE He ON AC ee ae ee a te 9? 
REM 7? 9 3 2 6 ie te He te HE ae he He he Se Me ale Me SNe Me SNe Me ate ate ae aie ee ae 9? 


REM MIX1 
HIRES 0,7 


10360 

112,118,141,118,1 
112,118,112,160,1 
112,162,170,162,1 
170,162,170,151,1 
170,151,140,151,1 
140,151,140,117,1 
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ne ft 


1090e GOSUB 1087e 
10903 GOSUB 10600 
10804% GOTO10S04% 


READY . 
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B2.2.3. DIMENSIONS 


We introduce another plane for the dimensions - PLANE3. This third 
plane is put together by subroutine KOMBI3 (procedure in SIMONS'’) 


If you look at the PLANES1+3 program, you will see that it is identical 
with the PLANES1+2 program up to line 10896 (except for line 10001). 
The only addition is the third plane in the form of subroutine KOMBI3, 
and subroutine MIX1 mixes planes 1 and 3 instead of planes 1 and 2. 


If we wanted to, we could, of course, also draw in the second plane as 
well. We have avoided doing that here in order to make the principle 
clear. You can see quite clearly that we can dip into our tool box in this 
way for exactly what we want and that we can be very flexible. 


There is now another subroutine address at line 10001. This is needed 
because subroutine MIX1 (which, of course, has to be addressed first) 
has moved onto higher lines owing to the addition of KOMBI3. 


What is the actual point of going to the start and then immediately jumping 
to the end? By designing the program to run in this way, we can always 
start with RUN and then extend the program as we like. 


All we have to do is to make sure that the line number for MIX1 appears 
as a Subroutine address at line 10001. 


Here is another fundamental point to be noted: Have you been wondering 
for quite some time why I am very sparing in the use of explanatory REM 
statements in the programs? Our memory is so precious that it is better to 
dispense with them. Those who want to know how a program is 
structured can work it out even without explanations and those who will 
not do it without explanations will not even be happy if they have them. 
Well-intended advice, soundly-structured programs start, theoretically, 
with a liberal use of REM's, but these are generally used only by people 
who cannot find any other way of filling their memory capacity. 
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FIGURE 6: PLANE 3 


[ye 


FIGURE 7: PLANES 1+3 
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10000 
10001 
10002 
10003 
10004 
10005 
10006 
10007 
10008 
100093 
10010 
10011 
10012 
10013 
10014 
10015 
10016 
10017 
10018 
10019 
10102 
10103 
10104 
10105 
10106 
10107 
10108 
10109 
10110 
10111 
1011e 
10113 
10114 
10115 
10116 
10117 
10118 
10119 
10120 
101e1 
101iee 
10123 
101e4% 
101e5 
101e6 
10128 
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REM ”PLANE 1+3 C-128” 

GOTO 11000 

REM ”SUBROUT.F.LINE THICKNESS” 
IF AB=AD THEN 10012 

FOR AJ=1 TO AE 

AF=AA+AT 

AG=AB 

AH=AC+AT 

AI=AD 

:DRAW 1,AF,AG TO AH,AI 

NEXT AJ 

GOTO 10019 

FOR AK=1 TO AE 

AF=AA 

AG=AB+AK 

AH=AC 

AI=AD+AK 

:DRAW 1,AF,AG TO AH,AI 

NEXT AK 

RETURN 

REM ”SUBROUT.F.DASHED LINE” 
CE=ABSCCC-CAI 

CF=-ABSCCB-CD3 

IF CA=CC THEN 10137 

IF CB=CD THEN 10158 
CG“INTCSQRCC16*CE%23/CCF*2+CE%2))) 
CH7INTCCCG*CFI/CCEI) 
CI-INTCCE/CGI 

CJ==1 

IF CA<CC AND CD<CB THEN 10115 
IF CA<CC AND CB<CD THEN 10117 
IF CC<CA AND CD<CB THEN 10120 
IF CC<CA AND CB<CD THEN 10123 
CG=—-CG 

GOTO 10125 

CG=-CG 

CH=—-CH 

GOTO 10125 

CG=CG 

CH=CH 

GOTO 10125 

CH==CH 

GOTO 10125 

CK=CA+CG 

CL=CB+CH 

FOR CM=1 TO CI 
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101e3 
10130 
10131 
1013e 
10133 
10134 
10135 
10136 
10137 
10138 
10133 
10140 
101441 
1014%e 
10143 
10144 
10145 
10146 
10147 
10149 
10150 
10151 
1015e 
10153 
10154 
10155 
10156 
10157 
10158 
10159 
10160 
10161 
1016e 
10163 
10164 
10165 
10166 
10168 
10169 
10170 
10171 
10172 
10173 
10174 
10175 
10176 
10177 
10178 
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GOSUB 10178 

CK=CK-CG 

CL=CL-EH 
CN=CkK-Ce*CG) 
CO=CL-Ce*CH) 

:DRAW CP,CK,CL TO CN,CO 
NEXT CM 

GOTO 10186 

REM "VERTICAL LINES” 
CI=INTCCF/4) 

Cie=1 

CH=4 

IF CB<CD THEN 10143 
IF CD<CB THEN 10145 
CH=-CH 

GOTO 10147 

CH=CH 

GOTO 10147 

CL=CB+CH 

FOR CM=1 TO CI 

GOSUB 101768 

CK=CA 

CL=CL-CH 

CN=CA 

CO-CL-C2*CH) 

: DRAW CP,CK,CL TO CN,CO 
NEXT CM 

GOTO 10186 

REM "HORIZONTAL LINES” 
CI=INTCCE/4Y) 

Cue) 

CG=4 

IF CA<CC THEN 10164 
IF CC<CA THEN 10166 
CG=-CG6 

GOTO 10168 

CG=CG 

CK=CA+CG 

FOR CM=1 TO CI 

GOSUB 10178 

CK=CK-CG 

CL=CB 

CN=CK-Ce*CG) 

CO=CB 

:DRAW CP,CK,CL TO CN,CO 
NEXT CM 

GOTO 10186 

REM ”’LOOPS” 
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10179 CJ=CJ*C-1) 

10180 IF CJ=1 THEN 1016e 

10181 IF CJ=-1 THEN 10184 

1018e CP=1 

101683 GOTO 10185 

101864% CP=0 

10185 RETURN 

10186 RETURN 

10202 DHS=”"102021221202000e”:REMN CENTER 


10203 XI=VALCMIDSCDHS, DC*e+1,133-1 
1020% YI=VALCNIDSCDHS, DC*e+e,133)-1:CX=0: 


10e€0S CX=CX+1:C2="C2+1: IFCZ2=110RCZ=120RC2Z 
=1S50RC2=16THENPT=0: GOTO10208 

10206 IFCZ=17THENCZ=1 

10207 PT=1 

10208 IFCX>DEORDA> 31S0RDB> 1SSTHENRETURN 
102093 FORXX=1TODD: DRAW PT,DA,DB: DA=DA+XI 
: DB=DB+YI:NEXT:GOTO10e05 

10282 REMN”SUBROUT.F.DOUBLE” 

10283 FOREZ=OTO": DRAW! , EA-EZ, EB-EZTOEAtE 
2, EB-E2Z: NEXT: RETURN 

102e8% FOREZ=OTOS6: DRAW! , EA, EB-EZTOEA+6-E2Z 
, EB-EZ: NEXT: RETURN | 

1028S FOREZ=OTO": DRAW! , EAtEZ,EB-EZTOEAtE 
2, EB+EZ: NEXT: RETURN 

10286 FOREZ=OTOSE: DRAW! , EA, EB+EZTOEA+B—-EZ 
, EB+EZ: NEXT: RETURN 

10287 FOREZ=OTO"4: DRAW! , EA-EZ, EB+EZTOEAt+E 
Z2,EBtEZ: NEXT: RETURN 

10288 FOREZ=OTO6: DRAW! , EA, EB+EZTOEA-6+EZ 
, EB+EZ: NEXT: RETURN 

1028S FOREZ=OTO!: DRAW! , EA-EZ, EB+EZTOEA-E 
2, EB-EZ: NEXT: RETURN 

10290 FOREZ=O0TOE: DRAW! , EA, EB-EZTOEA-6+EZ 
, EB-EZ: NEXT: RETURN 

102391 REM START 

10e9Se ONECGOTO10e2S4, 10295, 10296, 10297 ,10 
e968, 10e99, 10300 

10293 GOSUB102B83: DRAW1, EA, EBTOEA, EB-EE:E 
B=EB-EE : GOSUB10287 : RETURN 

102394 GOSUB10284: DRAW! , EA, EBTOEA+EE , EB-E 
E: EA=EAt+EE: EB“=EB-EE: GOSUB102688: RETURN 
10295 GOSUB1028S5: DRAW1, EA, EBTOEA+EE,EB:E 
A=EA+EE: GOSUB10289: RETURN 

10eS6 GOSUB102866: DRAW], EA, EBTOEAtEE, EBt+E 
E: EA=EA+EE: EB=EB+EE: GOSUB102S90: RETURN 
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10297 GOSUB10287: DRAW1,EA,EBIOEA,EBtEE:E 
B=EB+EE : GOSUB10283: RETURN 

10298 GOSUB10288: DRAW1,EA,EBTOEA-EE,EB+E 
E: EA=EA-EE: EB=EB+EE: GOSUB10284: RETURN 
10299 GOSUB10289: DRAW1,EA, EBTOEA-EE,EB:E 
A=EA-EE: GOSUB10265: RETURN 

10300 GOSUB102390: DRAW1 , EA, EBTOEA—-EE , EB-E 
E: EA=EA-EE: EB=EB-EE: GOSUB10286: RETURN 
10312 REM "COMPLETE ARROWHEAD” 

10313 GOTO10336 

10314 REM”DRAW ARROW HEADS” 

1031S FOREZ=OTO4: DRAW1 , EA-EZ, EB-E2ZTOEA+E 
Z,EB-EZ: NEXT: RETURN 

10316 FOREZ=OTO6: DRAW1, EA, EB- -EZTOEA+6— EZ 
, EB-EZ:NEXT: RETURN 

10317 FOREZ=OTO4: DRAW! , EA+EZ, EB-EZTOEA+E 
Z2,EBt+EZ2: NEXT: RETURN 

10318 FOREZ=OTO6: DRAW1 , EA, EB+EZTOEA+6-E2 
, EB+EZ: NEXT: RETURN 

10319 FOREZ=OTO4: DRAW , EA-EZ, EB+EZTOEAt+E 
Z,EBtEZ: NEXT: RETURN 

10320 FOREZ=OTO6: DRAW1 , EA, EBtEZTOEA-G+t+EZ 
, EB+EZ: NEXT: RETURN 

10321 FOREZ=OTO4: DRAW1 , EA-EZ,EB+tEZTOEA-E | 

2, EB-EZ: NEXT: RETURN 

10322 FOREZ=OTO6: DRAW1, EA, EB-EZTOEA-6+EZ 
, EB-EZ: NEXT: RETURN 

10323 EM=ABSCEM]:REM DRAW CONNECTING LIN 


E 

10324 ONECGOTO10326, 10327 ,10328,103e5,10 
330, 10331 ,1033e 

10325 GOSUB10315: DRAW1, EA, EBTOEA,EB-EE:E 
B=EB-EE: GOSUB10319: RETURN 

10326 GOSUB10316: DRAW1, EA, EBTOEA+EE,EB-E 
E: EA=EA+EE: EB=EB-EE: GOSUB10320: RETURN 
10327 GOSUB10317: DRAW1, EA, EBTOEA+EE,EB:E 
A=EA+EE: GOSUB10321: RETURN 

10328 GOSUB10318: DRAW1, EA, EBTOEA+EE,EB+E 
FE: EA=EA+EE: EB=EB+EE: GOSUB10322: RETURN 
10329 GOSUB10319: DRAW1, EA, EBTIOEA, EBtEE:E 
B=EB+EE: GOSUB10315S: RETURN. 

10330 GOSUB10320: DRAW1,EA, EBTOEA-EE,EB+E 
E: EA=EA-EE: EB=EB+EE: GOSUB10316: RETURN 
10331 GOSUB10321:DRAW1,EA,EBTOEA-EE,EB:E 
A=EA-EE: GOSUB10317: RETURN 

10332 GOSUB10322: DRAW1,EA, EBTOEA-EE,EB-E 
E: EA=EA-EE: EB=EB-EE: GOSUB10318: RETURN | 
10333 REM 
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le 


10334 GOSUB 10323 

10335 RETURN 

103365 REMN”START OF ARROW HEAD” 

10338 REM”DRAW DIMEMSION LINES” 

10333 EQ=EN+3: IFEN=-2THENEQ=—-EQ 

10340 ONECGOTO1034e2, 10343, 10344 ,10345,10 
346, 10347, 10348 

10341 DRAW1, EA, EBTOEA+EQ, EB: DRAW, EA, EB- 
EETOEA+EQ , EB-EE: EA=EA+EMN*SGNCEQ) : GOSUB10 
323: RETURN 

1034e DRAW1, EA, EBIOEA+EQ, EB+EQ: DRAW, EA+ 
EE, EB-EETOEA+EQ+EE , EB-EE+EQ: EA™EA+EM*SGN 
CEQ): EB=EB+EM*SGNCEQ) : GOSUB10323: RETURN 

10343 DRAW1, EA, EBTOEA, EB+EQ: DRAW1, EA+EE, 
EBTOEA+EE , EB+EQ: EB@EB+EM*SGNCEQ) : GOSUB10O 
323: RETURN 

10344 DRAW1 , EA, EBTOEA-EQ, EB+EQ: DRAW1 , EA+ 
FE, EB+EETOEA-EQ+EE, EB+EE+EQ: EA=EA-EM*SGN 
CEQ): EB=EB+EM*SGNCEQ) : GOSUB10323: RETURN 

10345 DRAW1, EA, EBTOEA-EQ, EB: DRAW1, EA, EB+ 
FETOEA—-EQ, EB+EE: EA=EA-EM*SGNCEQ) : GOSUB10 
323: RETURN 

10346 DRAW! , EA, EBTOEA-EQ, EB-EQ: DRAW1, EA- 
FE ,EB+EETOEA-EQ-EE , EB+EE-EQ: EA*EA-EM*SGN 
CEQ) : EB=EB-EMN*SGNCEQ) : GOSUB10323: RETURN 

10347 DRAW, EA, EBTOEA, EB-EQ: DRAW1,EA-EE, 
EBTOEA—EE , EB-EQ: EB=EB-EMN*SGNCEQ) : GOSUB10 
323: RETURN 

10348 DRAW1, EA, EBTOEA+EO, EB-EQ: DRAW1 , EA- 
FE ,EB-EETOEA+EQ-EE , EB-EE-EQ: EA=EA+EM*SGN 
CEQ): EB=EB-EM*SGNCEQ) : GOSUB10323: RETURN 

10360 REMN”SUPERHATCHING” 

10361 FAST: FOQ=FQ+1: IFFQ>1THEN10363 

10362 DIN FJCe2000):DIN FKC2000) 

10363 FTI=1:FW=0: IF FB=e THEN 10411 

10364 ::PAINT 1,FC+1,FD+1 

10365 FE=INTC320/FAI 

10366 FF=INTCe00/FAI 

10370 FOR FG=1 TO FE 

10371 FY=0 

10372 FX=FG*FA 

10373 REM LOOP 

10374 FX=FX-1*FT 

10375 FY=FY+1 

10376 IF FX=0 OR FY=2e00 THEN10384 

10377 LOCATEFX,FY:FH=RDOTC2) 

10378 IF FH=1 THEN 10380 

10373 GOTO 10383 
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10380 
10381 
10368e 
10383 
10384 
10385 
10386 
10387 
10388 
103893 
103350 
103391 
103392 
10393 
103394 
10335 
10336 
10397 
10398 
103393 
10400 
10401 
10402 
10403 
10404 
10405 
10406 
10407 
10408 
10403 
10410 
10411 
10413 
10414 
10432 
10433 
10434 
10435 
10436 
10437 
10438 
10439 
1O440 
10441 
1044e 
10443 
10444 
1O44S 


CAD for the C-128 and C-64 


nn 


PI=Fiti 

FJICFIJ=FX 

FKCFIIJ=FY 

GOT010373 

NEXT FG 

FOR FV=0 TO CFF-13 

IF FB=e2e OR FW=1 THEN 10389 
FX=320 

GOTO 103390 

FX=0 

FY=FU*FA 

REM LOOP 

FX=FX-1*FT 

FY=FY+1 

IF FY=200 OR FX=OTHEN1O40e 
LOCATEFX, FY: FM=RDOTCe2) 

IF FM=1 THEN 10398 

GOTO 10401 

FI=FI+1 

FJCFIJ=FX 

FKCFIIJ=FY 

GOTO10391 

NEXT FU 

IF FB=3 THEN 10409 

::PAINT 0O,FC+1,FD+1 

FOR FO=1 TO FI 

:: DRAW1,FJCFOI,FKCFO) 

NEXT FO:FI=0 

GOTO 10414 

FW=FW+1 

IF FW=e THEN 10404 

Pl==1 

GOTO 10364 

SLOW: PRINT””; : RETURN 
REMN”GRID” 
GB=INTC320/GA):GE=0 
GC=-INTC200/GA) 

FOR GD=1 TO GB 

GE=GE+GA: GK=0 

GFS=STRSCGE3 

FOR GJ=1 TO GC 

GK=GK+GA 

:: DRAW GZ,GE,GK 

NEXT GJ 

IF GE=SO OR GE=100 THEN 10446 
IF GE=150 OR GE=200 THEN 10446 
IF GE=eS0 OR GE=300 THEN 10446 
GOTO 104%4%8 
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SE 


LO%46 
1O%47 
10448 
LO4#49 
10450 
10451 
10456 
10457 
10458 
10459 
10460 
1O%61 
104%6e 
105398 
10539 
10600 
10601 
10602 
10603 
10604 
10605 
10607 
10608 
10609 
10610 
10611 
1061e 
10613 
10614 
10615 
10616 
10617 
10618 
106193 
10620 
10621 
10622 
106e3 
106e4% 
1062S 
10626 
10627 
10628 
10629 
10630 
10631 
10632 
10633 


CAD for the C-128 and C-64 


:DRAW G2Z,GE,OTOGE,200 

:CHAR 1, CGE-83/8,0,GFS 

NEXT GD 

FOR GF=1 TO GC 

GH=GH+GA 

GIS=STRSCGHI 

IF GH=50 OR GH=100 THEN 10459 

IF GH=150 OR GH=200 THEN 10459 
GOTO 10461 

: DRAWGZ ,0O, GHTO320, GH 
:CHAR1,1,CGH-8)/8,GIS 

NEXT GF 

RETURN 

REM” PLANE1” 

PRELIM 7? 3 2 6 Be 2 306 ae a Ae ee Re 2 He a NG Ree HE ae ae 206 ae Ne ate te he ae 2? 
REM KOMBI1 

DA=10 

DB=80 

DC=2 

DD=3 

DE=240 

GOSUB 10202 

DA=260 

DB=10 

Do=4 

DD=3 

DE=60 

GOSUB 10202 

AA=15 

AB=S0 

AC=15 

AD=110 

AE=2 

GOSUB 10002 

AA=c0 

AB=45 

AC=20 

AD=115 

AE=e 

GOSUB 10002 

AA=15 
AB=S0 
AC=c20 
AD=4S 
AE=2 
GOSUB 
AA=15 
AB=110 


10002 
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10634 
10635 
10636 
10637 
10638 
106335 
10640 
10641 
10642 
10643 
10644 
10645 
10646 
10647 
10646 
106493 
10650 
10651 
1065e 
10653 
106544 
10655 
10656 
10657 
10658 
10653 
10660 
10661 
10662 
10663 
106644 
10665 
10666 
10667 
10668 
10663 
10670 
10671 
10672 
10673 
10674 
10675 
10676 
10677 
10676 
106793 
10680 
10681 
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AC=20 
AD=115 

AE=e 

GOSUB 1000e 
AA=e1 

AB=t4t 

AC=30 

AD=t4 

AE=e2 


GOSUB 1000e 


AA=e1 
AB=113 
AC=30 
AD=113 

AE=e 

GOSUB 1000ce 
AA=16 

AB=49 

AC=30 

AD=49 

AE=1 

GOSUB 1000e 
AA=16 
AB=109 
AC=30 
AD=103 

AE=1 

GOSUB 1000ce 
AA=30 

AB=3e 

AC=30 
AD=128 

AE=c 

GOSUB 1000e 
AA=B5 

AB=15 

AC=B85 
AD=145 

AE=c2 

GOSUB 1000e 
AA=38 

AB=19 

AC=76 

AD=193 

AE=c 

GOSUB 1000e 
AA=38 

AB=43 
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10668e 
10683 
106844 
10685 
10686 
10687 
10688 
10689 
10630 
10691 
106392 
10693 
106394 
10695 
10696 
10697 
10638 
10639 
10700 
10701 
1070e 
10703 
10704 
10705 
10706 
10707 
10708 
10709 
10710 
10711 
10712 
10713 
10714 
10715 
10716 
10717 
10718 
10719 
10720 
10721 
1072e 
10723 
10724 
10725 
10726 
10727 
10726 
10729 


CAD for the C-128 and C-64 


lm 


AC=78 
AD=43 

AE=2 

GOSUB 10002 

AA=38 

AB=114 

AC=7B8 

AD=114 

AE=2 

GOSUB 10002 

AA=38 

AB=137 

AC=78 

AD=137 

AE=2 

GOSUB 10002 
:CIRCLE1,115,80,85,85,245,295,0,3 
:CIRCLE1,115,80,84,84,245,295,0,3 
:CIRCLE 1,0,80,85,85,65,115,0,3 
:CIRCLE 1,0,80,86,86,65,115,0,3 
:CIRCLE 1,43,32,13,13,205,335,0,3 
:CIRCLE 1,43,32,12,12,205,335,0,3 
:CIRCLE 1,72,32,13,13,25,155,0,3 
:CIRCLE 1,72,32,14,14,25,155,0,3 
:CIRCLE 1,43,128,13,13,205,335,0,3 
:CIRCLE 1,43,128,12,12,205,335,0,3 
:CIRCLE 1,72,128,13,13,25,155,0,3 
:CIRCLE 1,72,128,14,14,25,155,0,3 
AA=B86 
AB=14 
AC=30 
AD=14 
AE=2 
GOSUB 
AA=B6 
AB=145 
AC=30 
AD=14S 
AE=2 
GOSUB 10002 
AA=30 

AB=10 

AC=90 
AD=180 

AE=2 

GOSUB 10002 
AA=91 

AB=9 


10002 
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10730 
10731 
10732 
10733 
1073't 
10735 
10736 
10737 
10738 
107393 
10740 
1074%1 
10742 
1074%3 
10744 
10745 
10746 
10747 
10748 
107493 
10750 
10751 
1075e 
10753 
10754 
10755 
10756 
10757 
10758 
107593 
10760 
10761 
1076e 
10763 
107644 
10765 
10766 
10767 
10768 
107693 
10770 
10771 
1077e 
10773 
10774 
10775 
10776 
10777 
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AC=140 

AD=3 

AE=2 

GOSUB 1000e 
AA=140 
AB=10 
AC=140 
AD=150 

AE=e2 

GOSUB 1000e 
AA=1441 
AB=150 
AC=170 
AD=150 

AE=c 

GOSUB 1000e 
AA=170 
AB=151 
AC=170 
AD=181 

AE=e2 

GOSUB 1000e 
AA=91 
AB=160 
AC=171 
AD=160 

AE=e 

GOSUB 1000e 
AA=91 

AB=40 
AC=141 
AD=40 

AE=2 

GOSUB 1000e 
AA=91 

AB=4 
AC=16e 
AD=444 

AE=e 

GOSUB 1000c 
AA=91 

AB=49 
AC=130 
ADH=49 

AE=1 

GOSUB 1000e 
AA=91 
AB=103 
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I I I EE LTO 


10776 
10779 
10780 
10781 
107682 
10783 
107644 
10785 
107865 
10787 
10788 
10789 
10730 
10791 
10732 
10793 
107394 
10735 
10796 
10797 
10738 
10799 
10800 
10801 
10802 
10803 
10804 
10805 
10806 
10807 
10808 
108093 
10810 
10811 
1081e 
10813 
10814 
10815 
10816 
10817 
10818 
10819 
10820 
10621 
10622 
10623 
108e4% 
106e5 
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AC=130 
AD=109 

AE=1 

GOSUB 10002 
AA=91 
AB=113 
AC=16e 
AD=113 

AE=2 

GOSUB 10002 
AA=91 
AB=117 
AC=141 
AD=117 

AE=e 

GOSUB 1000e 
AA=110 
AB=10 
AC=110 
AD=44 

AE=2 

GOSUB 10002 
AA=110 
AB=114 
AC=110 
AD=180 

RE-2 

GOSUB 1000e 
AA=131 
AB=45 
AC=131 
AD=113 

AE=1 

GOSUB 10002 
AA=141 
AB=19 
AC=16e 
AD=19 

AE=2 

GOSUB 10002 
AA=141 
AB=137 
AC=18e 
AD=137 

AE=e 

GOSUB 10002 
AA=188 
AB=32 
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10826 
10827 
10828 
108e3 
10830 
10831 
10832 
10833 
108344 
10835 
10836 
10837 
10838 
10833 
10840 
10841 
10842 
10843 
10844 
10845 
10846 
10847 
10848 
108493 
10850 
10851 
10852 
10853 
108544 
10855 
10856 
10857 
10856 
108593 
10860 
10861 
1086e 
10863 
10664 
10865 
10866 
10867 
10868 
10870 
10871 
10872 
10874 
10875 


CAD for the C-128 and C-64 





AC=18B 

AD=126 

AE=2 

GOSUB 10002 

AA=113 

AB=160 

AC=170 

AD=160 

AE=2 

GOSUB 10002 

CA=135 

CB=165 

CC=160 

CD=165 

GOSUB 10102 

CA=135 

CB=165 

CC=135 

CD=180 

GOSUB 10102 

CA=160 

CB=165 

CC=160 

CD=180 

GOSUB 10102 

: CIRCLE1,105,60,85,85,65,115,0,1 
: CIRCLE1,105,80,86,86,65,115,0,1 
: CIRCLE1,177, 32,13,13,25,155,0,1 
: CIRCLE1,177, 32,14, 14,25,155,0,1 
:CIRCLE1,177,128,13,13,25,155,0,1 
:CIRCLE1,177,126,1%,14,25,145,0,1 
: CIRCLE1, 260, 80, 30, 30 

: CIRCLE1, 260,80, 29,23 

: CIRCLE1,260,680, 35,35 

: CIRCLE1, 260,80, 36, 36 

: CIRCLE1,260,80,60,60 

: CIRCLE1,260,80,59,59 

: CIRCLE1,260,80,59,59,0, 360,0,60 
: CIRCLE1, 260,80,58,58,0, 360,0,60 
: CIRCLE1,260,80,50,50 

: CIRCLE1,260,80,49,49 

RETURN | 

REM >? Se He 3H SAG HE HE HE HE Re HE HE HE SNE HE SHG UG HE HG SHE NE HE NE NE ae he ae he HE te? 


REM” PLANE2” 

FEM 7? 26 2 2 2 ie HE NE Ee Eee Ee Re eae a ea 7? 
REM KOMBIe 

BOX 1,91,10,91+22,10+3e 

FA=10 
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10876 
10877 
10878 
108793 
10860 
10881 
10862 
10883 
10884 
10885 
10886 
10887 
10888 
10889 
108390 
10891 
108Se 
10833 
10834 
108395 
10896 
10897 
10898 
10300 
103901 
1030e 
10303 
103904 
103905 
103906 
10307 
103508 
10303 
10910 
10911 
10312 
10913 
10914 
10915 
10916 
10917 
109518 
109193 
10920 
10921 
109ee 
10923 
109¢e4% 


FB=2 

FC=100 

FD=20 

GOSUB 10360 

BOX 1,91,118,91+21,118+64 
FD=150:FC=100 

GOSUB 10360 

BOX 1,112,10,112+30, 10+32 
FB=1 

FC=120 

FD=20 

GOSUB 10360 

DRAW1 ,112,11B8TO140, 118 
DRAW1,112,118T0112,160 
DRAW1 ,112,162TO170, 162 
DRAW1 ,170,162T0170,151 
DRAW1,170,1517TO140,151 
DRAW1, 140, 151TO140,118 
FD=150 

GOSUB 10360 

RETURN 


FEM 7? 2 2 i We We He ee He ME He Mee ME HE HE HE He ee HE AE HE He HE HE NE He ate ?? 
FR E- [1 7? 2 6 ae ae aie aie He he Se ate aie aie He Ne ae ae SMe He He Me Me ae he He he ate te ate He? 


REM” PLANES” 


FE 7? 246 206 ae he ae 2 te Ie Ne Ne a IE 2 Ne Ne ale He ae ae ate ae Ne ae ate ate ate >? 


REM PLANES 

EA=e1 

EB=45 

BCes 

ED=1 

EE=/O 

EM=17 

EN=1 

GOSUB 10312 

DRAW] ,16,110T016,195 
DRAW ,190,135T0190,195 
EA=190 

EB=190 

EC=6 

ED=1 

FE=174 

GOSUB 10e92 

DRAW ,311,110T0311,165 
DRAW ,210,110T0210,165 
EA=210 

EB=155 

oy Oa = 

ED=1 
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ee A 


10925 EE=100 
10926 GOSUB 10e9Se 


10927 RETURN 
LL OOO REM? 22 2 2 2 ee 2 a ee NE te HE te HE NE te Nee te ee ae te 7? 


11001 REM 9) Se Ne HG NG Ae HE NG HE ANG SE ae Me NG ae aN Me Ne aE He aN Re aME ae He Me Ne ae 206 He 9? 


1100e REM MIX1 
11003 GRAPHIC1,1 
11004 GOSUB 10900 
1100S GOSUB 10600 
11006 GOTO11006 


READY. 


99 


10000 
10001 
10002 
10003 
10004 
10005 
10006 
10007 
10008 
100093 
10010 
10011 
10012 
10013 
10014 
10015 
10016 
10017 
10018 
100193 
1010e 
10103 
10104 
1010S 
10106 
10107 
10108 
10109 
10110 
10111 
10112 
10113 
10114 
10115 
10116 
10117 
10118 
10119 
10120 
10121 
10122 
10123 
101e4 
10125 
10126 
10127 
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REM”PLANE1+3 ¢-64 
GOTO 11000 

PROC LINE THICKNESS 
IF AB=AD THEN 10012 
FOR AJ=1 TO AE 
AF=AA+AJ 

AG=AB 

AH=AC+AT 

AI=AD 

: LINE AF,AG,AH,AI,1 
NEXT AJ 

GOTO 10019 

FOR AK=1 TO AE 
AF=AA | 
AG=AB+AK 

AH=AC 

AI=AD+AK 

: LINE AF,AG,AH,AI,1 
NEXT AK 

END PROC 

PROC DASHED LINE 
CE=ABSC(CC-CAI 
CF=ABS(CB-CD) 

IF CA=CC THEN 10137 
IF CB=CD THEN 10158 


CAD for the C-128 and C-64 


CG=INTCSQRCC16*CE%2)/CCF*%2+CE*%2))) 


CH“ INTC CCG*CFI/CCEI) 


CI-INTCCE/CG) 
Cje=i1 


IF CA<CC AND CD<CB THEN 10115 
IF CA<CC AND CB<CD THEN 10117 
IF CC<CA AND CD<CB THEN 10120 
IF CC<CA AND CB<CD THEN 10123 


CG=-CG 
GOTO 1012S 
CG=-CG 
CH=—-CH 
GOTO 10125 
CG=CG 
CH=CH 

GOTO 10125 
CH=—-CH 
GOTO 10125 
CK=CA+CG 
CL=CB+CH 
REM” HIRES” 


100 
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101¢e8 
10129 
10130 
10131 
1013e 
10133 
10134 
10135 
10136 
10137 
10138 
101393 
10140 
101441 
1014%2 
10143 
10144 
10145 
10146 
10147 
1014S 
10150 
10151 
10152 
10153 
10154 
10155 
10156 
10157 
10158 
101593 
10160 
10161 
1016e 
10163 
10164 
10165 
10166 
10167 
10166 
10169 
10170 
10171 
10172 
10173 
10174 
10175 
10176 


CAD for the C-128 and C-64 


ee 


FOR CM=1 TO CI 
GOSUB 10178 
CK=CK-CG 

CL=CL-CH 
CN=CK-C2*CG) 
CO=CL-C2*CH) 

: LINE CK,CL,CN,CO,CP 
NEXT CM 

GOTO 10186 

REM "VERTICALS” 
CI=INTCCF/4) 

CJ=-1 

CH=4 

IF CB<CD THEN 10143 
IF CD<CB THEN 10145 
CH=-CH 

GOTO 10147 

CH=CH 

GOTO 101%7 

CL=CB+CH 

FOR CM=1 TO CI 
GOSUB 10178 

CK=CA 

CL=CL-CH 

CN=CA 

CO=CL-(2*CH) 

-LINE CK,CL,CN,CO,CP 
NEXT CM 

GOTO 10186 

REM ”HORIZONTALS” 
CI=INTCCE/4) 

CJ=-1 

CG=4 

IF CA<CC THEN 10164 
IF CC<CA THEN 10166 
CG=-CG 

GOTO 10167 

CG=CG 

REM” HIRES” 

CK=CA+CG 

FOR CM=1 TO CI 
GOSUB 10178 
CK=CK-CG 

CL=CB 

CN=CK-C2*CG) 

CO=CB 

-LINE CK,CL,CN,CO,CP 
NEXT CM 


101 
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10177 
10178 
10179 
10180 
10181 
101682 
10183 
10184 
10185 
10186 
10202 
10203 
10204 
10205 
10206 
10207 
10208 
10262 
10283 
3333" 
10284 


10285 
10286 
10287 
10289 
102390 
10291 
10312 
10313 
3333” 
10314 


CAD for the C-128 and C-64 


GOTO 10186 

REN ”LOOP” 

CJ=CI*C(-1) 

IF CJ=1 THEN 10182 

IF CJ=-1 THEN 10164 

CP=1 

GOTO 10185 

CP=0 

RETURN 

END PROC 

PROC CENTER LINE VERS.121 
DHS=”6666666666116611” 
DI=INTCDE/16) 
DJS“DUPCDHS,DII 

:ROT DC,OD 

:DRAW DJS,DA,DB,1 

END PROC 

PROC 2DOUBLE DIMENSION ARROW 
EFS=”60688365SSS0688888836S55555555 


EJS= ”3755078888375555550788888888 


EGS= ad =) 33 

FHS=DUPCEGS, EE) 

EIS“EFS+EHS+EJS 

:ROT EC,ED 

:DRAW EIS,EA,EB,1 

END PROC 

PROC 3COMPLETE DIMENSION 
EFS=”"60688365SSSO06888888365SS55555 


EJ$="37550788883755555507888888ss85 


55511116” 


10315 
10316 
10317 
10318 
10319 
10320 
10321 
10322 
10323 
10324 
103e5 
10326 
10327 
10328 
10329 


EGS= "5B 33 
EHS=DUPCEGS, EE) 
EX$= 7G 33 
ELS=DUPCEKS, EM) 

IF EN= 2 THEN 10326 
E0$="SS5333” 
EPS=ELS+EDS$ 

EQS= ad =| 39 
ERS=DUPCEOS, EM) 
ESS=EPS$+EFS+EHS+EJ$+E0S+ERS 
GOTO 10332 

ETS="g” 
EUS=DUPCETS, EN) 
EVS= "888000" 
EWS“EUS+EUS 
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10330 
10332 
10333 
10334 
10360 
10361 
1036e 
10363 
10364 
10365 
10366 
10368 
10369 
10370 
10371 
1037¢e 
10373 
10374 
10375 
10376 
10377 
10378 
10373 
10380 
10381 
10382 
10383 
10384 
10385 
10386 
10387 
10388 
10383 
103390 
10391 
10332 
10393 
10394 
10395 
10396 
10397 
10398 
103993 
10400 
10401 
1040e 
10403 
10404 


CAD for the C-128 and C-64 


a 


ESS=EWS+EFS+EHS+EJS+EVS+ELS 
:ROT EC,ED 

: DRAW ESS,EA,EB,1 

END PROC 

PROC HATCHING 
FQ=FO+1:IFFQ>1 THEN 10363 
DIN FJC2000):DIM FKCe000) 
FT=1:FW-0: IF FB=2 THEN 10411 
:PAINT FC,FD,1 
FE=INTC320/FA) 
FF=INTC200/FAI 

FY=e 

FU=122-FD*FA 

FOR FG=1 TO FE 

FY=0 

FX=FG*FA 

LOOP 

FX=FX-1*F 2 

FY=FY+1 

EXIT IF FX=0O OR FY=c00 
FH=TESTCFX,FY] 

IF FH=1 THEN 10380 

GOTO 10383 

FI=FI+1 

FJCFIJ=FX 

FKCFIIJ=“FY 

END LOOP 

NEXT FG 

FOR FU=0 TO CFF-1] 

IF FB=2 OR Fw=1 THEN 103895 
FX=3e0 

GOTO 103390 

FX=O 

FY=FU*FA 

LOOP 

FX=FX-1*FT 

PY=FY?1 

EXIT IF FY=200 OR FX=0 
FM=TESTCFX,FY] 

IF FM=1 THEN 103358 

GOTO 10401 

FI=FI+1 

FJCFIJ=FX 

FKCFIIJ=FY 

END LOOP 

NEXT FU 

IF FB=3 THEN 10403 

:PAINT FC,FD,O 
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eee 


10405 
10406 
10407 
10408 
LO4%O0S 
10%10 
10411 
10413 
104%14% 
10%32 
10433 
104%34 
10435 
10436 
10437 
10438 
10439 
104%40 
LO%41 
10442 
10443 
10444 
10445 
104%46 
104%47 
10448 
10449 
10450 
1O4%51 
10456 
10457 
10458 
LO4%S9 
104%60 
10461 
10462 
10598 
10533 
10600 
10601 
10602 
10603 
10604 
10605 
10607 
10608 
10609 
10610 


CAD for the C-128 and C-64 


FOR FO=1 TO FI 

:PLOT FJCFO),FKCFO),1 

NEXT FO:FI=0 

GOTO 10414 

FW=FW+1 

IF FW=e THEN 10404 

Presi 

GOTO 10364 

END PROC 

PROC GRID 

GB=INTC320/GA):GE=0 
GC-INTC200/GA) 

FOR GD=1 TO GB 

GE=GE+GA: GK=0 

GFS=STRSCGE) 

FOR GJ=1 TO GC 

GK=GK+GA 

:PLOT GE,GK,G2 

NEXT GJ 

IF GE=S50 OR GE=100 THEN 10446 
IF GE=1S0 OR GE=200 THEN 10446 
IF GE=2S5S0 OR GE=300 THEN 10446 
GOTO 10446 

:LINE GE,O,GE,200,G2 

:TEXT CGE-83,0,GF$,1,1,8 

NEXT GD 

FOR GF=1 TO GC 

GH=GH+GA: GU=0 

GIS-STRSCGH) 

IF GH=S50 OR GH=100 THEN 10459 
IF GH=1S50 OR GH=200 THEN 10459 
GOTO 10461 


:LINE O,GH,320,GH,G2 

>: TEXT O, CGH-8),G61$,1,1,8 

NEXT GF 

END PROC 

REN” PLANE1” 

REM ? 2 5 6 te 506 te 306 5 te ate He Stee he a Ne a ate He ae te ate te ate ae ate ate ate 29 


PROC KOMBI1 

DA=10 

DB=80 

DC=2 

DD=3 | 

DE=240 

EXEC CENTER LINE VERS.1 
DA=260 

DB=10 

DC=4 
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10611 
10612 
10613 
10614 
10615 
10616 
10617 
10618 
10613 
10620 
10621 
10622 
10623 
10624 
10625 
10626 
10627 
10628 
10629 
10630 
10631 
10632 
10633 
10634 
10635 
10636 
10637 
10638 
10639 
10640 
10641 
10642 
10643 
10644 
10645 
10646 
106447 
10648 
10649 
10650 
10651 
10652 
10653 
10654 
10655 
10656 
10657 
10658 
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DD=3 
DE=60 


CAD for the C-128 and C-64 


ee 


EXEC CENTER LINE VERS.1 


AA=15 
AB=50 
AC=15 
AD=110 
AE=e 

EXEC LINE 
AA=e0 
AB=45 
AC=20 
AD=115 
AE=e 

EXEC LINE 
AA=15 
AB=50 
AC=e0 
AD=45 
AE=e 

EXEC LINE 
AA=15 
AB=110 
AC=e0 
AD=115 
AE=ce 

EXEC LINE 
AA=e1 
AB=44 
AC=30 
AD=44 
AE=e 

EXEC LINE 
AA=e1 
AB=113 
AC=30 
AD=113 
AE=e 

EXEC LINE 
AA=16 
AB=49 
AC=30 
AD=49 
AE=1 

EXEC LINE 
AA=16 
AB=1093 
AC=30 


THICKNESS 


THICKNESS 


THICKNESS 


THICKNESS 


THICKNESS 


THICKNESS 


THICKNESS 
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106593 

10660 
10661 

10662 
10663 
10664 
1066S 
10666 
10667 
10668 
10669 
10670 
10671 
1067e 
10673 
10674 
10675 
10676 
10677 
10678 
106793 
10680 
10681 
10682 
10683 
10684 
10685 
10686 
10687 
10688 
10683 
106390 
10691 
10692 
106393 
10634 
10695 
10696 
10697 
10698 
106939 
10700 
10701 

10702 
10703 
10704 
10705 

10706 
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AD=109 

AE=1 

EXEC LINE THICKNESS 
AA=30 

AB=32 

AC=30 

AD=128 

AE=e 

EXEC LINE THICKNESS 
AA=8S 

AB=15 

AC=85 

AD=145 

AE=2 

EXEC LINE THICKNESS 
AA=38 

AB=19 

AC=78 

AD=19 

AE=e2 

EXEC LINE THICKNESS 
AA=38 

AB=43 

AC=78 

AD=43 

AE=2 

EXEC LINE THICKNESS 
AA=38 

AB=114 

AC=78 

AD=114 

AE=2 

EXEC LINE THICKNESS 
AA=38 


CAD for the C-128 and C-64 


AB=137 

AC=78 

AD=137 — 

AE=e 

EXEC LINE THICKNESS 

ARC 115,80,245,295,3, 85,85,1 
ARC 115,80,245,295,3, BY, 84,1 
ARC O, 80, 6S, 115, a as, 85,1 
ARC 0,80,65,115,3,86, B6,1 
ARC 43, 32, 205, 335, 3. 13, 13, 1 
ARC 43, 32,205,335, 3, Le; te.t 
ARC 72,32,25, 155, 3, 13, 13, 1 
ARC 72,32,25,155,3, ie sera Me a 
ARC 43, 128, 205, 335, a; 13, 13, Ni 


106 





10707 
10708 
10703 
10710 
10711 
1071e 
10713 
10714 
10715 
10716 
10717 
10718 
10719 
10720 
10721 
1072e 
10723 
10724 
10725 
10726 
10727 
10728 
10729 
10730 
10731 
1073¢e 
10733 
10734 
10735 
10736 
10737 
10738 
10733 
10740 
10741 
1074%e 
10743 
10744 
10745 
10746 
10747 
10748 
10749 
10750 
10751 
1075e 
10753 
10754 
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LE 


-ARC 43,128,205, 335,3,12,12,1 
SARC 72,128,25,155,3,13,13,1 
SARC 72,128,25,145,3,14,14,1 


AA=86 
AB=14 
AC=390 
AD=14t 
AE=2 

EXEC LINE 
AA=86 
AB=145 
AC=30 
AD=145 
AE=e 

EXEC LINE 
AA=30 
AB=10 
AC=30 
AD=180 
AE=e 

EXEC LINE 
AA=91 
AB=9 
AC=140 
AD=3 

AE=e 

EXEC LINE 
AA=140 
AB=10 
AC=140 
AD=150 
AE=2 

EXEC LINE 
AA=141 
AB=150 
AC=170 
AD=150 
AE=e 

EXEC LINE 
AA=170 
AB=151 
AC=170 
AD=181 
AE=ce 

EXEC LINE 
AA=S1 
AB=180 
AC=171 


THICKNESS 


THICKNESS 


THICKNESS 


THICKNESS 


THICKNESS 


THICKNESS 


THICKNESS 


107 


10755 
10756 
10757 
10758 
10759 
10760 
10761 
10762 
10763 
10764 
1076S 
10766 
10767 
10768 
10763 
10770 
10771 
10772 
10773 
10774 
10775 
10776 
10777 
10778 
107793 
10780 
10781 
10782 
107683 
10784 
10785 
10786 
10787 
10788 
10789 
107390 
107931 
10792 
10793 
107934 
10795 
10796 
107937 
10798 
10739 
10800 
10801 
10802 
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AD=180 
AE=2 

EXEC LINE 
AA=91 
AB=40 
AC=141 
AD=40 
AE=2 

EXEC LINE 
AA=31 
AB=44 
AC=182 
AD=44 
AE=2 

EXEC LINE 
AA=91 
AB=49 
AC=130 
AD=49 
AE=1 

EXEC LINE 
AA=91 
AB=109 
AC=130 
AD=109 
AE=1 

EXEC LINE 
AA=91 
AB=113 
AC=182 
AD=113 
AE=2 
EXEC LINE 
AA=91 
AB=117 
AC=141 
AD=117 
AE=2 

EXEC LINE 
AA=110 
AB=10 
AC=110 
AD=44 
AE=2 

EXEC LINE 
AA=110 
AB=114 
AC=110 


THICKNESS 


THICKNESS 


THICKNESS 


THICKNESS 


THICKNESS 


THICKNESS 


THICKNESS 


THICKNESS 
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10803 
108044 
10805 
10806 
10807 
10808 
108093 
10810 
10811 
10812 
10813 
10814 
10815 
10816 
10817 
10818 
10819 
10820 
106e1 
108e2 
10623 
106e4 
10825 
10826 
10827 
10828 
108e39 
10830 
10831 
1083e 
10833 
10834 
10835 
10836 
10837 
10838 
10839 
10840 
10841 
1084e 
10843 
10844 
10845 
10846 
10847 
10846 
10843 
10850 


CAD for the C-128 and C-64 


en EEE 


AD=160 

AE=c 

EXEC LINE THICKNESS 
AA=131 

AB=45 

AC=131 

AD=113 

AE=1 

EXEC LINE THICKNESS 
AA=141 

AB=13 

AC=16e 

AD=19 

AE=e 

EXEC LINE THICKNESS 
AA=141 

AB=137 

AC=18e 

AD=137 

AE=c 

EXEC LINE THICKNESS 
AA=188 

AB=3e 

AC=168 

AD=1eB8 

AE=e 

EXEC LINE THICKNESS 
AA=113 

AB=160 

AC=170 

AD=160 

AE=c 

EXEC LINE THICKNESS 
CA=135 

CB=165 

CC=160 

CD=165 

EXEC DASHED LINE 
CA=135 

CB=165 

CO=135 

CD=180 

EXEC DASHED LINE 
CA=160 

CB=165 

CC=160 

CD=1860 

EXEC DASHED LINE 
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10851 
108S2 
10853 
108S4 
10855 
10856 
10857 
10858 
10859 
10860 
10861 
10862 
10863 
10864 
10865 
10866 
10867 
10868 
10870 
10871 
10872 
10874 
10875 
10876 
10877 
10878 
10879 
10880 
10881 
108862 
10883 
10884 
1088S 
10886 
10887 
10888 
10889 
108390 
10891 
10892 
10893 
108394 
1089S 
10896 
10897 
10898 
10300 
10901 


CAD for the C-128 and C-64 


>: ARC 
:ARC 
: ARC 
: ARC 


105,80,65,115,1,85,85,1 
10S5,80,65,115,1,86,86,1 
177, 32,25,155,1,13,13,1 
177,32,25,155,1,14,14,1 
:ARC 177,128,25,155,1,13,13,1 
SARC 177,128,25,145,1,14,14.1 
:CIRCLE 260,80,30,30,1 
:CIRCLE 260,80,29,29,1 
:CIRCLE 260,80,35,35,1 
:CIRCLE 260,80,36,36,1 
:CIRCLE 260,80,60,60,1 
:CIRCLE 260,80,59,59,1 

:ARC 260,80,0,360,60,59,59,1 
:ARC 260,80,0,360,60,58,58,1 
:CIRCLE 260,80,50,50,1 
:CIRCLE 260,80,49,49,1 

END PROC 


FRE [1 °? 4 24 2 ste te ate 206 ae 20e te ae ie Ee ae SE HE SHE 2M NE SNE HE He SHE le he ae He ate? 


REM” PLANE2” 
PREM 7? 3 24 26 5 2 2 ate 2 206 ee AE He te ee NE ne ate ae a ae te ate ae te ake 
PROC KOMBIe2 
:REC 91,10,22,32,1 
FA=10 
FB=e 
FC=100 
FD=20 
EXEC HATCHING 
:REC 91,1168,21,64,1 
FD=150:FC=100 
EXEC SCHRAFFUR 
>REC 112,10,30,32,1 
FB=1 
FC=120 
FD=20 
EXEC HATCHING 
>LINE 112,118,141,118,1 
:LINE 112,116,112,160,1 
:LINE 112,162,170,162,1 
:LINE 170,162,170,151,1 
:LINE 170,151,140,151,1 
:LINE 140,151,140, 117, 1 
FD=150 
EXEC HATCHING 
END PROC 
REP 7? 5 56 ie te ite te ate te ae He ete a He He He He Ke ee ate ai te aie te ak ake? 
PREM ” 2 3 3 ae he te se ate Se te he He 0 He Hee he Re Re te ae te a ae te >» 
REN” PLANE3” 
REM 7 3 3 9 3 e306 5 te 06 ee He 2 He Re He ae Hk te ae te Ne te ate ase 29 


110 





Abacus Software 


1030e 
103903 
103904 
10305 
10306 
10307 
10308 
103903 
10910 
103911 
1091e 
103913 
103914 
10915 
109516 
10917 


10318. 


109193 
103920 
10321 
10See 
10923 
10924 
103925 
10926 
10927 
11000 
11001 
11002 
11003 
11004 
11005 
11006 


READY. 
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PROC KOMBI3 

EA=21 

EB=45 

EC=4 

ED=1 

EE=64 

EM=17 

EN=1 

EXEC 3COMPLETE DIMENSION 
:LINE 16,110,16,195,1 
:LINE 190,135,190,195,1 
EA=190 

EB=190 

EC=6 

ED=1 

EE=169 

EXEC 2DOUBLE DIMENSION ARROW 
:-LINE 311,110,311,165,1 
:LINE 210,110,210,165,1 
EA=210 

EB=155 

EC=2 

ED=1 

EE=94 

EXEC 2DOUBLE DIMENSION ARROW 


END PROC 
md Oy bed kookeckastoskocteshaotesteshpatesteatashesbealeshesieatesheaieateseaieanedeaiesedlll 


REM eee ree Tee ee ee et kh ke 


PROC MIX1 
HIRES 0,7 
EXEC KOMBI1 
EXEC KOMBIS 
END PROC 
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B2.2.4 LEGENDS 


We enter the legends of our specimen drawing in PLANE 4. 


For this purpose, we use subroutine KOMBI4. I have only listed the part 
of the program that represents an addition. There is no further need to 
discuss the principle but you may notice that a new basic program has 
been added. 


This program is called TEXT FIELD. With its help, we can enter the text 
on the drawing. We write the the text continuously, simply making sure 
that it is not longer than 255 characters. 


Using variables HA and HB, we enter the coordinates at which the upper 
left-hand corner of the text is to appear on the screen. Using variables 
HC, we can determine the width of the text field. 


The program deletes sufficient room for itself on the drawing and divides 
up the unstructured text into the corresponding number of lines. 


This program makes it easier for us to locate continuous text in a given 
place. It does not meet all requirements, e.g. it does not split words up in 
the correct grammatical way. However, we dispense with these 
requirements because, in the first place, a disproportionate amount of 
work would be required and, in the second place, it would use up 
memory unnecessarily. 


If we want special features with given lines of text, we can always use the 
CHAR (TEXT in SIMON'S BASIC) command. 


Maybe just one more comment on expressing dimensions. This is where 
it 1s most apparent that the old drawing standard was not compiled with 
when using computers. 


In the meantime, it has come somewhat more into line. For example, the 


standard now Specifies that dimensions are to be placed above or below 
the dimension lines and that the lines are to be drawn continuously. 
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FIGURE 8: PLANE 4 


M6 


i6 


i86 


FIGURE 9: PLANES 1+3+4 
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11000 REM”TEXT FIELD C-128” 

11001 GOTO 11027 

1100e REN”SUBROUT.F.TEXT FIELD” 

11003 HX=HA/8: HY=HB/6: HL=INTCHC/8) 

11004 HH=LENCHES) : HO=INTCHH/HLJ:HG=1:PT= 
O: HA=INTCHA/81*8: HB=INTCHB/8)*8 

11005 FORHP=1TOHO: HASCHPJ=MIDSCHES,HG, HL 
J 

11006 HG=HG+HL: NEXT: IFHH/HL<> INTCHH/HLIT 
HENHASCHPIJ=MIDSCHES,HG,HH-HG+1):PT=1 
11008 BOX O,HA-3,HB-3, HA+HL*B+3, HB+CHO+P 
TI*8+3,0,1 

110095 BOX 1,HA-3,HB-3,HA+HL*8+3, HB+CHO+P 
TJ *8+3 

11010 FORI=1TOHO+PT: CHAR1 ,HX,HY+I-1,HASC 
IJ:NEXT: RETURN 

11027 GRAPHIC1,1 

110e8 HA=2e00 :REM”X COORD. OF UPPER LH C 
ORNER OF TEXT FIELD” 

110e35 HB=10 :REM”Y COORD. OF UPPER LH C 
ORNER OF TEXT FIELD” 

11030 HC=8S5 :REM”’WIDTH OF TEXT FIELD” 
11033 HES=”"ONLY FOR INFORMATION” 

11034 GOSUB 11002 

11035 GOTO 11035 


READY. 
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11000 
11001 
1100e 
11003 
11004 
11005 
11006 
11007 
11008 
11009 
11011 
1101e 
11013 
11014 
11015 
11017 


REM"TEXT FIELD C-64 

GOTO 11027 

REM” SUBROUT.F.TEXT FIELD” 
HH=LENCHES) 

HI=HH*B :HO=10 
HJ=DIUCHC,8 3 

HK=HJ*B 

HL=DIVCHI, HK) 
HM=MODCHI , HK) 

HN=HL+1 

HP=-HJ+1 

FOR HO=1 TO HN 

HP=HP+HJ 
HASCHOJ=-MIDSCHES,HP,HJ) 
NEXT HO 

:REC CHA-S), CHB-5), CHK+10), CHN*B + 


83,1:FOR HS=1 TO CHN*8+8):HY=CHB-SJ+HS 


11018 


REMNFOR HT=1 TO CHK+103:HX=CHA-SI+H 


REM :PLOT HX,HY,1::PLOT HX,HY,e2:NE 


:NEXT HS 


:REC CHA-5S), CHB-5), CHK+10), CHN*® 8+ 


HY=HB-8 

FOR HR=1 TO HN 

HY=HY+8 

: TEXT HA,HY,HASCHRIJ,1,1,8 

NEXT HR 

RETURN 

HIRES 0,7 

HA=200 :REM”’X COORD. OF UPPER LH C 
OF TEXT FIELD” 

HB=10 :REM”Y COORD. OF UPPER LH C 
OF TEXT FIELD” 

HC=B8S :REM’WIDTH OF TEXT FIELD” 
HES="OQNLY FOR INFORMATION” 

GOSUB 11002 

GOTO 11035 
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B2.2.5 SUMMARY 


The basic elements, such as dashes, center lines, hatching, circles, etc., 
are available to us in the form of subroutines (procedures) or commands 
(directly from BASIC 7.0 or SIMON'S BASIC). 


Using different KOMBI subroutine programs (these are also procedures 
in SIMONS' BASIC, but one level above the basic programs), we can 
construct separate planes from these basic subroutines. 


Using different MIX subroutine programs (once again these are 
procedures in SIMONS' BASIC, but they rank above the KOMBI 
procedures), we mix the individual planes together to form an overall 
picture. 


We can imagine this hierarchy as being extended by several more levels. 
For example, the menu program which permits conversation with the 
computer, could be considered as the highest- ranking MIX procedure. 


And now, another important point: 


If you look carefully at figure 10, you may notice that the hatching is 
missing. The reason for this is quite important. Each plane takes up 
memory space. The plane on which hatching is produced (PLANE2), 
takes up a particularly large amount of memory. The memory of the C-64 
computer is simply full when we draw figure 10, as represented here. 
There is no room for the hatching plane. The internal memory cannot take 
any more.The C-128 can include the hatching plane. 


But C-64 owners should not despair as we can, of course, resort to our 
external memory, i.e. diskettes. If we wish to include the hatching on the 
drawing, we have to load the program onto the diskette and reload it from 
the disk in several steps. We shall be seeing later how that is done. In any 
case, you can see how important it is to be stingy with storage space. 
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FIGURE 10: ALL PLANES + GRID (NO HATCHING) 
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B2.3 SCALE 


Scale does not present the same kind of interest for us as for the users of 
the large CAD systems. With their plotters, they can output large format 
drawings for which it is useful to be able to adjust the scale to the 
corresponding format. 


Our output format is always the same - it is determined by the screen and 
the printer. Here, there is no need for different scales. We use our format 
accordingly from the outset. But we can make certain things in the 
drawing stand out subsequently by using different scales. As you can see 
in the following Section, this produces some very interesting effects. 


B2.3.1 ENLARGING AND REDUCING (+ DISTORTION) 


There is now a new item in our construction kit that we can use to 
enlarge, reduce, distort or displace figures whose coordinates are fixed, 
or to perform several of these operations at the same time. 


The program that does this for us is called SCALE. 


Lines 11059 to 11086 give you the desired arrangement. You can enter 
these lines as you wish or use the corresponding variables from another 
program already in the computer. The essential element is the addition of a 
factor for scale for each variable. 


Here, I have defined different factors (M and N) for the x axis and the y 
axis. In this way, the original figure can be distorted axially if M is not 
equal to N. 


In addition, a displacement factor is associated with each variable (V and 
W for the x and y axes respectively). By doing this, one can have 
enlargment or reduction at will within the picture field. 


Figure 11 shows the result without distortion and without coordinate 
displacement. The original figure is the one in the middle. You can see for 
yourself which are the enlarged and reduced figures. 


Enlargements are obtained for factors M greater than 1 and/or N greater 


oo 1, while reductions are obtained for M less than 1 and/or N less than 
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In figure 12, the enlargement factors are the same as in the preceding 
figure but the coordinates have been displaced, in such a way that the 
coordinates for the upper left-hand comers coincide. 

In figure 13, several variations have been made at the same time. The 
coordinates have been displaced but the y coordinate has not been 
enlarged at the same time, i.e. M is not equal to N (M=2; N=1). 


When testing out the program, you must take care not to use scales that 
are too large; otherwise, you may go off the screen. 


The mathematical process used here in fact causes the enlarged figure to 
move increasingly further away from the original figure, the larger the 
factors - and if coordinates are not displaced at the same time. That 
sounds a bit difficult. If you are interested in the reasons behind it, all you 
have to do is read on. If you and mathematics have nothing in common, 
just leaf through to the next Chapter. 
Figure 14 illustrates the mathematical principle. 
The triangle ACE is the figure requiring enlargement or reduction. 
The enlarged triangle is defined by Al-C1-E1. 
The reduced triangle is defined by A2-C2-E2. 
Point Al or A2 is derived from point A by calculating the coordinates in 
accordance with the imaging equation for concentric extension (that's 
what it's called). 
The general formulation of this equation is as follows: 
X1=K*X+(1-K)*Z1 
Y1=K*Y+(1-K)*Z2 


where K is not equal to 0. 


X1 and Y1 are the coordinates of picture dot Al. 


K is the enlargement factor - in our case, M for the x coordinate and N for 
the y coordinate. 


Z1 and Z2 are the coordinates of the center, i.e. the point of origin of the 
“projection beams". 
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We have chosen the center so that Z1=0 and Z2=0 are, in our case, in the 
top left-hand corner of the picture field. 


This considerably simplifies matters since our imaging equations now 
read as follows: 


X1=K*X 
Y1=K*Y 
where K is not equal to 0. 


As you can see, the coordinates of the individual picture dots are 
multiplied by the enlargement factor (K greater than 1) or the reduction 
factor (K less than 1). This means that the values of the coordinates 
become greater or smaller which, in turn, means that the figure - as a sum 
of coordinates - moves further from the center (0 point of the system of 
coordinates) or closer to it. 


But there is nothing to prevent us from adding a displacement factor to the 
imaging equation, to cancel out or alter this effect. 


The branch of mathematics that we have applied here is known as 
analytical image geometry. These mathematics are not my invention but an 
ancient heritage handed down from the Greeks, and it is just as much 
yours as mine. By comparison with other types of mathematics, it may at 
first sound trivial and, for some, possibly like hit and miss. But don't be 
fooled, it is a stroke of genius. If you use this simple principle in 
computing, the results are astonishing. 


Zooming, which is discussed in the next Chapter, is based, for example, 
upon the consistent use of this math. The results may well astonish even 
people "who have seen everything and done everything". 


It is as if these maths had been tailor-made for the computer: in principle, 
simple individual steps are executed in large numbers and at high speed. 
Is it just possible that the ancient Greeks had computers? 


Note: BASIC 7.0 has a built-in SCALE command, but can only be used 
for reductions. 
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FIGURE 11: ENLARGEMENT AND REDUCTION 


ne a 


FIGURE 12: ENLARGEMENT AND REDUCTION WITH 
DISPLACEMENT OF COORDINATES 
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FIGURE 13: _ENLARG. AND REDUCT. WITH 
DISPLACEMENT OF COORD. AND M NOT EQUAL TO N 


FIGURE 14: MATHEMATICAL PRINCIPLE OF ENLARG. 
AND REDUCTION 
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11050 REM”SCALE C-12e58” 

11051 GRAPHIC1,1:GOTO 11070 

11052 T=1:U=1:REN”SUBROUT. FOR SC” 
11053 IF M>1 THEN 11056 

11054 IF N>1 THEN 11058 

1105S GOTO 11059 


11056 T=-1 

11057 GOTO 11054 

11058 U=-1 

11059 DRAW1, INTCA*MN+U*T), INTCB¥N+W*UI TOI 


NTCO*M+U*T), INTCD*N+W*U ) 
11060 DRAW1, INTCC*MN+U*T), INTCD*N+W*UI TOI 
NTCE*N+U*T), INTCF*¥N+W*U J 
11061 DRAW1, INTCE*M+U*T), INTCF*N+W*UI TOI 
NTCG*MN+U*T), INTCH*N+W*U J 
11062 DRAW1, INTCG*MN+U*T), INTCH*¥N+W*UITO!I 
NTCA*M+U*T), INTCB*N+WU*U 3 
11063 DRAW1, INTC I*N+U*T), INTCJ*N+W*U TOI 
NTCK*M+U*TI, INTCL*®N+W*U J 
11064 DRAW1, INTCO*N+U*TI, INTCP*N+W*UI)TOI 
NTCO*MN+U*T), INTCR*N+W*U) 
11065 DRAW, INTCI*N+U*T), INTCI*N+W*U ITO! 
NTCO*M+U*T), INTCR*N+W*U I 
11066 DRAW, INTCO*N+U*TI, INTCR*N+W*UI TOI 
NI CK*¥MN+U*T), INTCL*®N+W*LU) 
11067 DRAW1, INTCK*N+U*T), INTCL*N+W*UITOI 
NTCO*N+U*T), INTCP*#N+W*U I 
11068 DRAW1, INTCO*N+U*T), INTCP*N+W*UITOI 
NICI*MN+U*T), INTC J*N+W*U J 


11063 
11070 
11071 
11072 
11073 
11074 
11075 
11076 
11077 
11078 
110793 
11080 
11081 
11082 
11083 
11084 
11085 


RETURN 


REM”’ENTRY OF VARTABLES” 


A=100 
B=90 
C=140 
D=90 
E=140 
F=50 
G=100 
H=50 
1=120 
J=30 
K=120 
L=S0 
0=100 
P=70 
Q=140 
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11086 R=70 

11087 REM”A TO R ARE THE COORDINATES OF 
THE FIGURE” 

11088 MN=1 :REMN”SCALE FOR X AXIS” 
110895 N=1 :REMN”SCALE FOR Y AXIS” 
110950 V=0 :REN”DISPLACEMENT X AXIS” 
11091 W=0 :REM”DISPLACEMENT Y AXIS” 
1109Se GOSUB 11052 

110933 M=e 

11034 N=e2 

11035 GOSUB 11052 

11096 M=1/e 

11097 N=1/e 

11098 GOSUB 110Se2 

110939 GOTO 110993 


READY. 
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11050 REM”’SCALE C-64 

11051 HIRES 0,7:GOTO 11070 

110S2 T=1:U=1:REM”SUBROUT.~FOR SC” 

11053 IF M>1 THEN 11056 

110S4 IF N>1 THEN 11058 

11055 GOTO 11059 

11056 T=-1 

11057 GOTO 11054 

11058 U=-1 

11059 :LINE INTCA*M+U*T), INTCB*N+W*U2, IN 
TCC*M+U*TI), INTCDO*N+W*U) , 1 

11060 :LINE INTCC*M+U*T), INTCD*N+W*U3, IN 
TCE*M+U*T), INTCF*N+W*U), 1 

11061 :LINE INTCE*M+U*T), INTCF*N+W*U3, IN 
TCG*M+U*T), INTCH*N+W*UI, 1 

11062 :LINE INTCG*M+U*T), INTCH*N+W*U3, IN 
TCA*M+U*T), INTCB*N+W*U), 1 

11063 :LINE INTCI*M+U*T), INTCJ*N+W*U), IN 
TCK*M+U*T), INTCL*N+W*UI , 1 

11064 :LINE INTCO*M+U*TJ, INTCP*N+W*U3, IN 
TCQ*M+U*TI, INTCR*®*N+W*UJ , 1 

11065 :LINE INTCI*M+U*T), INTCJ*N+W*U3, IN 
TCO*M+U*T), INTCR*N+W*U) , 1 

11066 :LINE INTCOQ*M+U*T), INTCR*N+W*UJ, IN 
TCK*M+U*TIJ, INTCL*N+W*UJ , 1 

11067 :LINE INTCK*M+U*T), INTCL*N+W*U), IN 
TCO*M+U*T), INTCP*N+W*UJ, 1 

11068 :LINE INTCO*M+U*TI, INTCP*N+W*U), IN 
TCI*M+U*TI, INTCI*®N+W*UI , 1 

11069 RETURN 

11070 REM”’ENTRY OF~VARIABLES” 


11071 
11072 
11073 
11074 
11075 
11076 
11077 
11078 
110793 
11060 
11081 
110Be 
11083 
11064 
11085 


A=100 
B=30 
C=-140 
D=390 
E=140 
F=50 
G=100 
H=50 
T=1e0 
J=390 
K=12e0 
L=50 
0=100 
P=70 
Q=140 


125 


Abacus Software 


CAD for the C-128 and C-64 


maa rrp aN NE a I TT 


11086 R=70 

11087 REN”A TO R ARE THE COORDINATES OF 
THE FIGURE” 

11088 M=1 :REM”SCALE FOR X AXIS” 

110893 N=1 :REM”SCALE FOR Y AXIS” 

11090 V=0 :REM”DISPLACEMENT X AXIS” 


110391 
11032 
11093 
11034 
110935 
11096 
11037 


110398 
11099 


READY. 


W=0 :REM”DISPLACEMENT Y AXIS” 
GOSUB 1105e 

MN=2 

N=2 

GOSUB 11052 

M=1/e 

N=1/e 

GOSUB 1105e 

GOTO 11099 
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B2.3.2 ZOOM 


In order to run the SCALE program described in the preceding chapter, 
~ os aa must know the corresponding coordinates of the figure to be 
enlarged. 


Within a given drawing there are figures or parts of figures whose 
coordinates are not defined because they are created by intersecting lines 
or surfaces. But we might wish to enlarge these parts too. 


The program that does this is called ZOOM. With it, we can enlarge an 
area that we have previously defined at will (as far as our screen 
permits).This area, and everything in it, is "blown up" dot by dot. 


Reductions are not possible because the area to "zoom" is already of the 
smallest possible size. The dots lie side by side and you can't get smaller 
than that. 


With zoom, not only are the scales enlarged but so are the picture dots 
themselves. The result is that lines and filled in areas also become larger 
and thicker. 


You can see this difference between ZOOM and SCALE clearly in figures 
15 to 18. Otherwise, it works exactly in the same way as SCALE. 


Using JA and IB, you enter the coordinates for the upper left-hand corner 
of the field to be zoomed. 


You use IC to determine the width and ID to determine the height of the 
field to be zoomed. 


Using IE, you enter the desired displacement of the zoomed (enlarged) 
field in the X direction. If you want displacement to be to the right, you 
enter +IE values; if you want it to be to the left, you enter -IE values. 

You use IU to enter the same data for the Y direction. 


You have to enter a displacement value in any case if the enlarged field 
would otherwise land outside the picture field. 


IM is the enlargement or ZOOM factor for the X axis, and IN the one for 
the Y axis. 


Naturally, you can once again use different values. In this case, the 
zoomed field is distorted. You can see an example of this in figure 17. 
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In the examples, the field for zooming is shown in a rectangle. 


Figure 18 gives an example of zoom on a drawing. The field to be 
zoomed is contained in the rectangle in the upper left-hand corner. 


The ZOOM program deletes the free space it needs inside the drawing. 


Although the program only reserves as much memory as the area to be 
zoomed requires, it is an expensive business. We therefore have to be 
careful not to define too large an area. The larger the area, the more 
memory occupied and the longer the program takes to run. Running time 
increases, of course, in proportion to the zoom factors. 


The following rule of thumb is nonsense, of course, but it does throw 
light on the position: 


Desired results = work to the power of 2 = storage requirements to the 
power of 4 = computing time to the power of 6. 


The ZOOM program can do a great deal - but it needs time. Do not lose 
your patience if nothing seems to be happening on the screen. Our friend, 
the computer, is thinking hard about what comes next. 


Furthermore, the computer stores the coordinates of all the dots of the 
field identified. They are in the computer and can be used again. We shall 
be coming back to this later. 


Figure 18 1s the result of combining the program for figure 9 with the 
ZOOM program via the MERGE command in SIMONS' BASIC (see 
appendix for the C-128 procedure). When doing this in SIMONS' 
BASIC we have to remove the HIRES command from ZOOM (otherwise, 
the high resolution graphics would be turned off because the command is 
already contained in the program for figure 9), and the transfer address at 
line 11101 must be moved one line further (the line for HIRES was, of 
course, used as a transfer address). 
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11100 
11101 
11102 
11103 
11104 
11105 
11106 


11107 
11108 
11109 
11110 
11111 
11112 
11113 
11114 
11115 
11116 
11117 
11116 
1111935 
11120 
1ijiel 
1lilee 
fies 
lilet4 
11125 
111e6 
11127 
11128 
11123 
11130 
11131 
1113¢e 
11133 
TO BE 
11134 
TO BE 
11135 


Abacus Software 


REN”’SZO0M C-128” 
GOTO 1113¢e 

REM” SUBROUT .F .SZ200M” 
IG=IG+t1 

IF IG>1 THEN 11106 
DIN I2C10,1C] 
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BOX1, CIA-1),CIB-1), CIA-13+CIC+eI),C 
IB-13+C1ID+e) 


FOR II=1 TO 
IY=IB+II 
FOR IJ=1 TO 
IX=IA+IJ 


ID 


Ic 


LOCATEIX,1Y:1IZ2C11,1J3J=RDOTCC) 


NEXT IJ 

NEXT II 
IV=TA*IM+IE 
IW=1B*IN+TU 

FOR II=1 TO ID 
TY=IW+CIBtI1II*IN 
FOR IJ=1 TO IC 
IX=IV+CIAt+IJI*IM 
IR=IX-IM 

IS=1Y-IN 

FOR IK=O TO Ce*IN) 
IP=IS+IK 

FOR IL=0 TO Ce*In) 
IO=IR+IL 


DRAW I2Z2CII,IJ3,10,TP. 


NEXT IL 
NEXT IK 
NEXT IJ 
NEXT II 
RETURN 
GRAPHIC1,1 
IA=20 
ZOOMED” 
IB=10 
ZOOMED” 
IC=30 


BE ZOOMED” 


11136 


ID=30 


BE ZOOMED” 


11137 
ENT” 
11138 


IE=0 


IU=0 
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: REM”X COORD. OF THE FIELD 
:REM”Y COORD. OF THE FIELD 
:REM”’WIDTH OF THE FIELD TO 
:REM”’HEIGHT OF THE FIELD TO 
:REM”’X COORD. FOR DISPLACEM 


:REM”Y COORD. FOR DISPLACEM 
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IN=e >REM”SCALE FOR X COORDINATE 
IN=e >REM”SCALE FOR Y COORDINATE 


BOX 1,30,20,30+10, 20+10 
DRAW , 35,15TO35, 35 
DRAW ,25,25T035,e5 
GOSUB 1110e 

GOTO 11145 
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11100 REM”S200M C-64 

11101 GOTO 11132 

11102 REM” SUBROUT.F .S200M” 

11103 IG=1G+1 

1110% IF IG>1 THEN 11106. 

11105 DIM I2C1D,IC3 

11106 :REC CIA-13,C1IB-13,CICcte), CID+e),1 

11107 FOR II=1 TO ID 

11108 IY=IB+tII 

11109 FOR IJ=1 TO IC 

11110 IX=IAtIJ 

11111 I2Z2CII,IJJ=TESTCIX, IY) 

11112 NEXT IJ 

11113 NEXT II 

11114% IV=IA*IN+IE 

11115 IW=IB*IN+IU 

11116 FOR II=1 TO ID 

11117 TY=IW+CIB+III*IN 

11118 FOR IJ=1 TO IC 

11119 IX™IV+CIAtIJI*IMN 

11120 IR=IX-IM 

1i1e1 IS"IY-IN 

111e2 FOR Ik=0 TO Ce*IN3I 

11123 IP=IS+IxK 

11124 FOR IL=0 TO Cce*In 

11125 [O=IR+IL 

11126 :PLOT IO,IP,I2CiII,IJ) 

11127 NEXT IL 

111e68 NEXT IK 

11129 NEXT IJ 

11130 NEXT II 

11131 RETURN 

1113e HIRES 0,7 

11133 IA=20 :REM”X COORD. OF THE FIELD 

TO BE ZOOMED” 

11134 IB=10 :REM”Y COORD. OF THE FIELD 

TO BE ZOOMED” 

11135 IC=30 :REM”WIDTH OF THE FIELD TO 
BE ZOOMED” 

11136 ID=30 :REM”HEIGHT OF THE FIELD 10 
BE Z200MED” 

11137 IE=0 :REM”X COORD. FOR DISPLACEM 

ENT” 

11138 IU=0 :REM”Y COORD. FOR DISPLACEM 

ENT” 

11139 IM=e :REM”SCALE FOR X COORDINATE 
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Ss” 

11140 IN=e :REM”’SCALE FOR Y COORDINATE 
Ss” 

11141 :REC 30,20,10,10,1 

111'te :LINE 35,15,35,35,1. 

11143 :LINE 25,25,35,25,1 

111%% GOSUB 11102 

11145 GOTO 11145 


READY. 
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FIGURE 15: ZOOM WITHOUT DISPLACEMENT OF 
COORDINATES | 


ut 


FIGURE 16: ZOOM WITH DISPLACEMENT OF 
COORDINATES 


ut 
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FIGURE 17: ZOOM WITH DISPLACEMENT OF 
COORDINATES AND DISTORTION 


#1 -€p 


FIGURE 18: ZOOM WITHIN A DRAWING 
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B2.4 DELETING AND ADDING PARTS 
B2.4.1 LARGE AREAS 


Technical drawings generally involve just as much erasing as drawing. 
The same applies to our computer drawings. The computer will have done 
quite a lot of deleting by the time everything on the screen is to our 
satisfaction. 


"Up to now, the only way of deleting that we know about has been to alter 
the character mode. We can set it to 0 or 2 and re-start the program. The 
detail that we have previously drawn, e.g. a line, rectangle or circle, is 
then deleted. 


This makes sense as long as it is the only detail that we wish to delete and 
the computer knows its coordinates. Far more frequently, what we want 
to do is to delete entire fields or areas in the drawing at a later stage. 


These fields contain quite a variety of different items that the computer no 
longer recognizes individually. In such cases, we need another tool for 
our construction kit, one that we can use easily and conveniently, just like 
an eraser. 


Our electronic eraser is called FIELD DELETE. With this program, we 
can delete fields of any size and in any position. Figure 19 provides some 
examples. 


With KA and KB, you enter the coordinates for the upper left-hand corner 
of the field to be deleted. 


You use KC to specify its width and KD its height. 


The computer then marks the field to be deleted with a rectangle and starts 
deleting. The marking rectangle is also re-deleted in the process. 


What we are left with is a free space in which we can re-draw. 
B2.4.2 FINE DETAIL 


However, a designer does not use just a eraser to erase chunks of his 
drawing here and there; he also uses a very fine, pointed pencil eraser. He 
uses this specially for small details and inserts amendments using an 
equally fine, sharp pencil. 
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What a conventional designer can do, we want to be able to do, and better 
after all, we are told that our computer makes drawing alterations 
particularly easy. 


And so, we need an electronic pencil eraser and an electronic pencil so 
that we can make these fine alterations and make them directly on the 
Screen, i.e. interaction with one's eyes on the screen and hands on the 
keys. 


Our new building block that enables us to do this is called PEN. We can 
use our electronic pen to scan our screen dot by dot, setting a dot or 
deleting one. And so it serves both as a pencil and pencil eraser. 


To describe the entire process, it is best if I start at the beginning. After 
the start of the program, the computer asks the question START X? on 
the bottom edge of the HIRES picture. This means that it is asking you at 
what X coordinate you want to start using the pen. You enter the 
coordinate you want and then press RETURN. 


Three seconds later, the computer asks START Y? It is now waiting for 
you to enter the Y coordinate for the starting point. Once you have entered 
this value, you again press RETURN. 


After a further 3 seconds, the computer deletes the text and a small, 
cross-like (arrow in SIMONS') cursor appears at the Starting point 
specified. I propose to call it the HIRES cursor. 


At the center (front in SIMONS’) this cursor is open. If you press key Y 
(as in Yes"), the computer places a dot at this point. If you press key N 
(as in No"), it deletes a dot there (if there was one to begin with). 


To set a dot = Key Y 
To deleteadot = Key N without using RETURN. 


If you want to move the HIRES cursor about the field, you have to press 
the following keys: 


Cursor to the right = key R 
Cursor to the left = key L 
Cursor up 7 key U 


Cursor down key D without using RETURN. 


So the HIRES cursor travels dot by dot in the corresponding direction 


whenever you press a key. Each time, you can set or delete a dot, or 
simply move on. 
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L also tried out HIRES cursor manipulation with the usual cursor keys, 
but then decided against them. They are inconveniently located and, 
because of their dual function, require too many hands. 


Using the keys mentioned earlier, you can manage with two fingers - one 
finger to manipulate the cursor and one finger to set or delete a dot. And 
both fingers are on the same hand. | _ | 


If you want to cover larger distances without setting or deleting a dot, you 
press the S key. Then the computer once again asks you for the 
coordinates for the new starting point - and the process begins over again. 
Of course, when this happens, the old HIRES cursor at the old starting 
point is deleted - that's only logical. 


If you wish to exit the PEN program, you press key E (as in "End"). The 
HIRES cursor disappears and you can access your next program. 


Incidentally, it is quite safe to move the cursor around over the various 
lines and areas of the figure. They will not be deleted by the cursor itself. 
Only the dot ahead of the cursor can be deleted or set, but even then, only 
if you tell it to do so using key N or Y respectively. 


The HIRES cursor shows up in white on the set dots it travels over (more 
precisely, inverse). Once it has passed them, the dots appear on the screen 
as before. Even if the cursor is deleted, this does not mean that any dots 
beneath it are deleted. It simply disappears, that's all. | 


Figure 20 shows a few random lines to illustrate how easy it is to draw 
them using our electronic pen. 


A few more points about the C-64 program: 


The C-64 SIMON'S BASIC program is put together using procedures. 
This is a convenient way of doing it because many subroutines are nested 
one inside the other and it is easy to obtain an overview using the 
symbolic transfer addresses of the PROC command. 


To call up the corresponding procedure, we do not use EXEC, but 
CALL. This is important. If you look at the program carefully, you will 
see that there is no END PROC. 


There is another reason for this. If we end the program with END PROC, 
the computer expects us to stand by our original decision, i.e. it does not 
take it kindly if we exit more than once from a procedure called up using 
EXEC, without reaching its end - END PROC. It will then display an 
error message: STACK TOO LARGE. The reason for this error message 
is that the basic interpreter has used all its available space in the stack. 
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I shall not expand on this error - that would mean too much 
“computerese". The important thing for us to remember is that if we want 
to keep skipping about between different procedures, it is better to 
dispense with END PROC and EXEC and call up the subroutines using 
CALL instead. 


Then, the computer will not hold it against us if we gO zigzageging back 
and forth through the procedures. 


The C-128 program is written with GOTOs so this error is not a problem. 
The entire PEN program is, again, composed in the same way as all the 
previous program building blocks and can be mixed with them any way 
you like. In addition, it gives an example of how to make a conversation 
building block out of a basic building block. 


FIGURE 19: TWO FIELDS LATER DELETED 


M6 





ise 


FIGURE 20: DRAWN DIRECTLY USING AN 
ELECTRONIC PEN 
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111S0 REM”’FIELD DELETE C-1c8” 

11151 GOTO 11165 

11152 REM”SUBROUT.F.FIELDDEL” 

11153 BOX O,KA,KB,KC+KA, KD+KB,0,1 

111S4% RETURN 

11165 REM”HIRES” 

11166 KA= -REM”X-COORD. OF UPPER LEFT 
CORNER OF FIELD” 

11167 KB= -REM”Y-COORD. OF UPPER LEFT 
CORNER OF FIELD” 

11168 KC= :REM”’WIDTH OF FIELD” 

111693 KD= :REM”’HEIGHT OF FIELD” 

11170 GOSUB 1115¢e 

11171 GOTO11171 

11172 GOTO 1117¢c 


READY. 


11150 REM”FIELD~DELETE C-64 

11151 GOTO 11165 

11152 REM”SUBROUT.F.FIELD” 

11153 :REC KA,KB,KC,KD,1 

11154 KX=KA 

1115S KY=KB 

11156 FOR KE=0 TO KD 

11157 KY=KB+KE 

11158 FOR KF=0O TO KC 

11159 KX=KA+KF 

11160 :PLOT KX,KY,1 

11161 :PLOT KX,KY,¢e 

11162 NEXT KF 

11163 NEXT KE 

11164 RETURN 

11165 REM”HIRES” | 

11166 KA= :REM’X COORD. OF UPPER LH CO 
RNER OF FIELD FOR DELETION” 

11167 KB= >REM”Y COORD. OF UPPER LH CO 
RNER OF FIELD FOR DELETION” 

11168 KC= >REM’WIDTH OF FIELD FOR DELE 
TION” 

11169 KD= :REM”’HEIGHT OF FIELD FOR DEL 
ETION” 

11170 GOSUB 1115¢ 

11171 GOTO 11171 


READY. 
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111680 
11181 
11162 
11184 
11166 
11197 
11198 
11199 
11200 
11201 
11202 
11203 
11204 
1120S 
11206 
11207 
11208 
11209 
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REM”PEN C-128” 


GOTO 11306 

JL=0O 

REM BEGIN 

:GSHAPE XS, JX-4, JY-2,4 
REM INPUT 

GET AS 

IF AS=”"Y” THEN 11208 

IF AS=”N” THEN 11212 

IF AS=”"L” THEN 11216 
IF AS=”R” THEN 11223 
IF AS="U” THEN 11230 
IF AS=”"D” THEN 11237 
IF AS="E” THEN 11269 

IF AS=”"S” THEN 11269 
GOTO011197 

REM PT SET 

IF JX<S THEN 11222:1IF JY¥<S THEN112 


36: IFJX>31STHEN11229: IF JY>19STHEN11243 


11210 
11211 
11212 
11213 


:DRAW 1, CJX-2), JY:G0T011197 

REM 

REM PT CLEAR 

IF JX<STHEN1122e: IFJY<STHEN11236: IF 


JX>315THEN11229: IFJY>19STHEN11243 


11214 
11215 
11216 
11217 
11218 
11219 
11220 
11ieel 
lieee 
11iee23 
ileet 
liees 
11226 
11227 
11228 
lie23 
11230 
11231 
11232 
11233 
ties 


:DRAW O, CJX-2), JY 
GOTO 11197 

REM PT LEFT 
JX=JX-1 

IF JX<S THEN 11222 
JT=0: JS=1 

GOTO 11244 
GOTO011197 
JX=5:G0T011197 

REM PT RIGHT 
JX=JX+1 

IF JX>31S5 THEN 11229 
JT=0: JS=-1 
GOTO11244 

GOTO 11197 
JX=315:60T011197 
REM PT UP 

JY=JY-1 

IF JY<S THEN 11236 
JT=1: JS=0 

GOTO 11244 
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11235 
11236 
11237 
11238 
112335 
11240 
11e%1 
Liete 
11e4%3 
11e44t 
11245 
R=1 

Li1e4%s 
11250 
11268 
11269 
11270 
ite7i 
1126e 
11283 
11284 
112686 
11291 
11293 
112394 
11297 
11303 
1130% 
11305 
11306 
11307 
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LT 


GOTO 11197 

JY¥=5:GOTO 11197 

REM PT DOWN 

JY=JY+1 

IF JY>195 THEN 11e43 
JT=-1: JS7=0 

GOTO 11e4%4 

GOTO 11197 
JY=195:G60T011197 

REM POINTER 

JWHIY+ IT: JU=IX+JIS: JQ=0: JU=0: JF=1: J 


:GSHAPE X$,JX-4,JY-e,4 
:GSHAPE XS, JU-4,JW-e,4 
GOTO 111968 

REM PEND 

:GSHAPE X$,JX-4,JY-e,4t 
GOTO 11303 

REM START 

GRAPHIC O 

INPUT”START X”;BS 
JX=VALCBS]) 

INPUT”START Y”;CS 
JY=VALCCS] 

GRAPHIC 1 

GOTO11184 

REM CONTINUE 

IF AS="S” THEN 1128ec 
IF AS="E” THEN 11305 
REM DEFINE POINTER 
GRAPHIC1,1:XS=CHRSC32)+CHRSC32I)+CH 


R$(2163+CHRSC32I+CHRSC32I+CHRSC4YI+CHRSCO 
J+CHRSC4I+CHRSCO) 


11308 


GOTO 1128e 


11309 REN WAIT 


11310 


READY. 


GOTO 11310 
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11180 
11181 
11182 
11184 
11185 
11186 
11187 
11189 
11190 
11192 
11193 
11194 
11195 
11196 
11197 
11198 
11199 
11200 
11201 
11202 
11203 
11204 
11205 
11206 
11207 
11208 
11209 


CAD for the C-128 and C-64 


REMN”PEN C-64” 
CALL PROGRAM 
JL=0 

PROC BEGINN 
JF=1: JS=0 

FOR JA=0 TO 2 
JW=JY-JA*JF 


JU=JIX+JA 

:PLOT JU, Jw,2 

NEXT JA 

JS=JS+1 

IF JS>1 THEN CALL INPUT 

JrP==1 

GOTO 11166 

PROC INPUT 

GET AS 

IF AS=”Y” THEN CALL PSET 

IF AS=”"N” THEN CALL PCLR 

IF AS="L” THEN CALL PLEFT 
IF AS=”"R” THEN CALL PRIGHT 
IF AS=”U” THEN CALL PUP 
IF AS=”D” THEN CALL PDOWN 
IF AS="E” THEN CALL PEND 

IF AS=”"S” THEN CALL PEND 

CALL INPUT 

PROC PSET 


IF JX<S THEN 11222:1F JY¥<S THEN112 


36: IFJX>31STHEN11229: IFJY>19STHEN11243 


11210 
11211 


Liele 


11213 


:PLOT CJX-2)3,JY,1:CALL INPUT 
REMN”END PSET” 

PROC PCLR 

IF JX<STHEN1122e2: IFJY<STHEN11236: IF 


JX>31S5STHEN11229: IFJY>19STHEN11243 


121% 
11215 
11216 
11217 
11218 
11219 


:PLOT CJX-2),JY,0 
CALL INPUT 

PROC PLEFT 

JX=JX-1 

IF JX<S THEN 11222 
JT=O: JS=1 
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11220 CALL POINTER 

11221 CALL INPUT 

112e2e JX=S5:CALL INPUT 
11223 PROC PRIGHT 

112ee4% JX=JX+1 

11225 IF JX>315 THEN 11ee9 
11226 JT=0:J5=-1 

11227 CALL POINTER 

11228 CALL INPUT 

11229 JX=315:CALL INPUT 
11230 PROC PUP 

11231 JY=JY-1 

11232 IF JY<S THEN 11236 
11233 JT=1:JS=0 

11234 CALL POINTER 

11235 CALL INPUT 

11236 JY=S:CALL INPUT 
11237 PROC PDOWN 

11238 JY=JY+1 

11239 IF JY>19S THEN 11243 
11240 JT=-1:J5=0 

11241 CALL POINTER 

112e%2 CALL INPUT 

11243 JY=195:CALL INPUT 
11244 PROC POINTER 

11245 JW=JY+JT: JU=JX+JS: JQ=0: JU=0: JF=1:J 
R=1 

11246 FOR JA=O TO c 
11247 JN=JWU-JA*JF 

11249 JMN=JU+JA 

11250 :PLOT JN,JN,ec 
11252 NEXT JA 

11e53 JQ=JQ+1 

11254 IF JQ>1 THEN 11257 
itess. JE=-1 

11256 GOTO 11e46 

11257 FOR JA=1 TO e 
11258 JN=JY-JA*JR 

11260 JN=JX+JA 

11261 :PLOT JN,JN,e 
11263 NEXT JA 

11264% JU=JU+1 

1126S IF JU>1 THEN 11c68 
11266 JR=-1 

11267 GOTO 11e57 

11268 GOTO 11196 

1126S PROC PEND 

11270 JF=1:J5=0 
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11272 
1127% 
1275 
11277 
11278 
11279 
11260 
11281 
11282 
11283 
11284 
11285 
11286 
11287 
11288 
11289 
11290 
11291 
1l1ese 
11293 
11234 
11295 
11296 
11297 
11303 
11304 
11305 
11306 
11307 
11308 
11309 
11310 


READY. 
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IN=JY-JA*JIF 
IM=JIX+JA 

:PLOT JM,JN,2 

NEXT JA 

JIS=JS+1 

IF JS>1 THEN CALL CHECK 
JF=-1 

GOTO 11271 

PROC START 

: TEXT 10,180, "START X 
INPUT BS 

: TEXT 90,180,BS,1,1,8 
IX=VALCBS) 

:PAUSE 1 

: TEXT 10,180, "START X 
: TEXT 90,180,BS,0,1,8 
: TEXT 10,180, "START Y 
INPUT CS 

:TEXT 90,180,C$,1,1,8 
JY=VALCCS) 

:PAUSE 1 

: TEXT 10,180, "START Y 
:TEXT 90,180,C%,0,1,8 
CALL BEGINN 

PROC CHECK 

IF AS=”"S” THEN CALL START 
IF AS=”"E” THEN CALL END 
PROC PROGRAM 

HIRES 0,7 

CALL START 

PROC END 

GOTO 11310 


ro lg BS 


?” 0,1,8 


?”°1,1,8 


© yOsl. 8 
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B3 MACROS 


B3.1 WHAT ARE MACROS & WHAT DO WE NEED 
MACROS FOR? 


If we often make three-dimensional or perspective drawings, it is a 
laborious business continually putting together the basic shapes of these 
figures from the smallest elements such as lines, circles, etc. 


It makes sense to have often used shapes on call in the computer. The 
name we give to these complex elements made up of simple elements 1S 
macros. They, in their turn, serve as basic elements for yet more complex 
drawings. 


The macros that we put together depend entirely on the field in which we 
are working. That is to say, macros are problem-orientated. 


In the following pages, we shall be putting together macros that 
frequently occur in technical drawings. These include regular geometrical 
shapes such as parallelepipeds, spheres, cylinders, etc. 


The form of a macro is retained in each case but, depending on the size 
and sign of the variables entered, there can be a considerable number of 
variants for a single macro. Using macros we can substantially enlarge 
our tool kit. 


B3.2 THE DIFFERENT MACROS IN C-128/C-64 CAD 


We get the computer to draw our macros in "cavalier" perspective. Using 
this projection method, the edges of the figures are drawn in a 
width-height-depth ratio = 1:1:0.5, with the downward pointing edges (Z 
axis) at an angle of 45 degrees. 


This method of representation suits the computer very well, particularly 
our output devices: the monitor and the printer. These ratios make it easy 
for the printer to calculate perspective and 45 degree lines do not suffer 
from the "step" effect. 


It is also an advantage to keep the X and Z coordinates the same as for 
two-dimensional representation, because it is then easier to combine the 
different macros. Then, you do not have to "think around corners" in 
spatial terms. 
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Because we wish to minimize work on our programs, at the same time 
getting the best out of them, i.e. an optimum relationship, certain of the 
macros are somewhat stylized representations of the shapes. This applies 
particularly to those with curving surfaces such as, €.g., cones or 
spheres. 


Our macros are designed as "wire frame models". What these are, Shall be 
explained in the following Chapter. 


One more important point: 


Enter the real depth (edges running in the Z direction) and not a value 
shortened by a factor of 0.5. The computer will shorten these edges itself. 


The macros that we are drawing here cannot be rotated about their main 
axes. We shall see how to do that in one of the following Chapters. 


B3.2.1 PARALLELEPIPEDS AND CUBES 


The PARALLELEPIPED program will draw us any parallelepipeds we 
want and, as a special form of parallelepiped, i.e. all edges being of equal 
length - cubes. 


You can see a few of these possibilities from figure 22. 


Using variables X1 and Y1, enter the coordinates of the upper left-hand 
comer of the front surface of the parallelepiped. 


Using variable Al, tell the computer how wide you want the 
parallelepiped to be. 


Enter the depth using B1 (real dimension). 


Variable C1 is used to determine the height of the parallelepiped. 
However, with C1, you can also determine something else; if you enter a 
negative value for C1, i.e. -C1, you will displace the direction in which 
the parallelepiped is drawn. If the C1 values are positive, it will be drawn 
downwards from the point of origin of the coordinates. If the C1 values 
are negative, precisely the opposite will occur, i.e. it will be drawn 
upwards in relation to the point of origin. 


In exactly the same way, you can have the parallelepiped drawn to the 


right of the point of origin for positive values and to the left using 
negative values. 
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This makes a lot of sense if you are putting together a complex drawing 
from several macros (we shall be doing this in the next Chapter). In this 
case, it can be an advantage to start from the fixed point of origin of the 
coordinates of a given shape and place the next macro there. And if this 
macro has to move, for example, to the left, you will save yourself a large 
amount of computing work if you define the starting point as described 
above. 


If I am to be honest, I must say that I was genuinely astonished by the 
little PARALLELEPIPED program (and the programs of the following 
macros). I have written more complicated programs in my time, but what 
one can get these programs to draw by skillfully manipulating the 
variables and signs is astonishing. 


Little work is involved and the results are not only optimum, they are 


maximum. (Maybe you should give yourself a pat on the back, if there is 
nobody else to do it for you). 
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FIGURE 21; PARALLELEPIPED 
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11350 
11351 
1135e 
11353 
11354 
11355 
11356 
11357 
11358 
113593 
11360 
11361 
11362 
11363 
11364 
11365 
11366 
11367 
11368 
11369 
11370 
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REM”PARALLELPIPED C-1c8” 
GOTO 11369 
REN” SUBROUT.F.PARALLELP.” 
D1=INTCSQRCB1%e2/8)) 
E1"X1:Fi=vYi+Cl 
G1=X1+A1:H1=Y1+C1 
11=X1+A1+D1: Ji1=Y1+C1-D1 
K1=X1+D1:L1=Y1+C1-D1 
M1=X1+A1:N1=Y1 
01=-X1:P1=yY1 
Q1=X1+A1+D1:R1=Y1-D1 
S1=X1+D1:T1=Y1-Dl1 
::BOX 1,X1,Y1,X1+A1,Y1+C1 
::BOX 1,S51,T1,S1+A1,T1+C1 
::DRAW1,E1,F1T0K1,L1 
::DRAW1,G1,H1TOI1,J1 
: : DRAW1,M1,N1i1TOO1,R1 

:: DRAW1,01,P1TOS1,T1 
RETURN 
:GRAPHIC 1,1 
X1=S0 :REM”X COORD. FOR UPPER L-H 


CORNER” 


11371 


Y1=SO :REM”Y COORD.~FOR UPPER L-H 


CORNER” 


11372 A1=60 


11373 


11374 C1=100 


:REM”’WIDTH OF PARALLELEP.” 
:REM”’DEPTH OF PARALLELEP.” 
:REM”’HEIGHT OF PARALLELLEP. 


B1i=40 


11375 GOSUB 1135e 


11376 


READY. 


GOTO 11376 
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REM” PARALLELPIPED C-64%” 
GOTO 11363 

REM” SUBROUT.F.PARALLELP.” 
D1=INTCSQRCB1%2/8)3) 
E1=X1:F1“Y1+C1 
Gi=KitAi:Hi=¥1+C2 
11-X1+A1+0D1: Jl-Y1+C1-Dl 
K1"=X1+D1:L1"Y1+C1-D1 
M1=X1+A1:N1=-Y1 


11359 01=X1:P1=-Y1 

11360 Q1=X1+A1+D1:R1=Y1-D1 

11361 S1=X1+D1:T1=Y1-D1 

11362 :REC X1,Y1,A1,C1,1 

11363 :REC S1,T1,A1,C1,1 

11364 :LINE E1,F1,K1,L1,1 

1136S :LINE G1,H1,11,J1,1 

11366 :LINE M1,N1,01,R1,1 

11367 :LINE 01,P1,S1,T1,1 

11368 RETURN 

11369 HIRES 0,7 

11370 X1=50 :REM”’X COORD. FOR UPPER L-H 
CORNER” 

11371 Y1=50 :REM”’Y COORD.~FOR UPPER L-H 
CORNER” 

11372 Al=B8O0 :REM’WIDTH OF PARALLELEP.” 
11373 B1=40 :REM’DEPTH OF PARALLELEP.” 
11374 C1=100 :REM”HEIGHT OF PARALLELLEP. 
11375 GOSUB 11352 

11376 GOTO 11376 

READY. 
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B3.2.2 PYRAMIDS 


The PYRAMID program is capable of designing any four-sided pyramid. 
In figure 24, you can see some of the variations that can be produced 
using this program. 


Use X2 and Y2 to enter the coordinates for the lower left-hand corner of 
the pyramid base. 


Using A2, define the width of the base. If the A2 values are positive, the 
pyramid will be drawn to the right starting from the point of origin; if they 
are negative, it will be drawn to the left. 


B2 gives the depth of the pyramid (real dimension). 


You use C2 to say how high the pyramid is to be. If you enter positive C2 
values, the tip of the pyramid will point upwards.If you enter negative C2 
values, it will point downwards. This is a simple way of rotating 
pyramids. 


A further variable has been introduced into this program: Z2, which I 
have baptized the distortion factor. It is not a factor, mathematically 
speaking, but an addend. However, everyday language is not purely 
mathematical. 


Using Z2, you can displace the tip of the pyramid in the x direction. If Z2 
1s positive, the tip of the pyramid moves to the right by the value entered. 
If it is negative, 1t moves to the left. 


The result is that we obtain a skew-angled pyramid. Of course, this also 


works if we have already used C2=negative to stand the pyramid on its 
head. 
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FIGURE 23: PYRAMID 





FIGURE 24: PYRAMID VARIANTS 
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11380 
11381 
11382 
11383 
11384 
11385 
11386 
11387 
11388 
11383 
113390 
11391 
11392 
11393 
11334 
11395 
11336 
11397 
113398 
11399 
11400 
11401 


CORNER” 


114%0e 


CORNER” 


11403 
11404 
11405 
11406 
11407 
11408 


READY. 





REM”’PYRAMID C-12B” 
GOTO 11400 

REM” SUBROUT .F .PYRAMID” 
D2=INTCSOR(B2*°2/8)) 
U2=INTCD2/2) 
UP=INTCA2/2) 
E2=X2:F2=Y2 
G2=X2+A2:H2=Y2 
12=X2+A2+D2: J2=Y2-De2 
K2=X2+D2:L2-Y2-D2 
M2=X2+U2+U2+Z2 : N2=Ye-Ue-Ce 
: DRAW1,E2, F2TOG2, He 

: DRAW1,G2,H2TOI2, Je 
:DRAW1, 12, J2TOK2, Le 

: DRAW1 , K2, L2TOE2, Fe 

: DRAW1 , E2,F2TOM2, Ne 

: DRAW1 , G2, H2TOM2 , N2 
:DRAW1, 12, J2TOM2 , N2 

: DRAW1 ,K2, LETOM2, N2 


RETURN 

:GRAPHIC 1,1 

X2=100 :REN”X COORD. FOR LOWER LH 
Ye=100 :REMN”Y COORD. FOR LOWER LH 
Z2e=-0 >REM”’DISTORTION FACTOR” 
Ae=S0 :REN”WIDTH OF PYRAMID” 
Be=60 :REMN”DEPTH OF PYRAMID” 
Ce=-B80 :REN”HEIGHT OF PYRAMID” 
GOSUB 11382 

GOTO 11408 
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11380 
11381 
1138e 
11383 
11364 
11385 
11386 
11387 
11388 
11389 
113390 
11391 


11392 : 


11393 
11394 


11395 : 
11396 : 


11397 


11398 : 


113393 
11400 
11401 
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REM” PYRAMID” C-64t 
GOTO 11400 

REN” SUBROUT.F.PYRANID” 
De-INTCSORCBe%e/8)) 
Ue= INTCDe/2) 
Ve=INTCAL/2) 


E2=X2:F2=Y2 
G2=X2+A2:H2=Y2 
I2=X2+A2+D2: J2-Y2-De2 
K2=X2+D2:L2e=Ye-De 
M2=X2+U2+U2+Ze : N2=Y2-U2-Ce 
E2,F2,G2,H2,1 
G2,H2,12,J2,1 
l2,J2,K2,L2,1 
K2,L2,E2,F2,1 
E2,F2,M2,N2,1 
G2,H2,M2,N2,1 
12,J2,M2,N2,1 
K2,L2,M2,N2,1 


HIRES 0,7 


:REM”X COORD. FOR LOWER LH 


CORNER” 


1140e 


Y2=100 :REM”Y COORD. FOR LOWER LH 


CORNER” 


*11403 
11404 
11405 
11406 
11407 
11408 


READY. 


Z2e=0 
Ae=50 


>REM”’DISTORTION FACTOR” 
>REM”’WIDTH OF PYRAMID” 

Be=60 :REN”DEPTH OF PYRAMID” 

Ce=BO :REN”HEIGHT OF PYRANID” 
GOSUB 11382 

GOTO 11408 
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B3.2.3 PRISMS 

The PRISM program can be used to draw any prism, such as a wedge or 
a roof, whatever we want to call this shape. 

You use X3 and Y3 to enter the coordinates for the starting point. It is 
located at the normal position, i.e., for positive A3 values, in the bottom 
left-hand corner of the base. 

Once again, you use A3 to define the width. The signs of A3 alter the 
direction in which the prism is drawn from the starting point, in the way 
we have already seen. 

B3 is the depth dimension (real dimension). 


C3 is used to define the height and the sign of C3 determines whether the 
prism is to be drawn facing upwards or downwards. 


Z3 is the distortion factor which displaces the "ridge" of the roof in the x 
direction and makes it possible to draw roofs with oblique angles. 


The sign of Z3 also gives the direction of distortion. 


Figure 26 shows a few variants that we can draw using this program. 
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FIGURE 25: PRISM 


FIGURE 26: PRISM VARIANTS 


c 
ras | 
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11413 REM”PRISN C-1e8” 

11414 GOTO 11435 

11415 REM”SUBROUT.F.PRISM” 

11416 D3=INTCSORCB3%2/8)) 

11417 US"INTCD3/e2) 

1ISIB ES=X3:F3773 

114193 G3=X3+A3:H3=Y3 

11420 I13=X3+A3+D3: J3=Y3-03 

11421 K3=X3+D3:L3=Y3-D3 

11422 O3=X3+U3+23: Pa=Y3-U3-C3 
11423 N3=X3+A3+U3+2Z3 

114e4% N3=Y3-U3-C3 

11425 ::DRAW1,E3,F3TOG3,H3 

11426 ::DRAW1,G3,H3TOI3,J3 

11427 : :DRAW1, 13, J3TOK3, L3 

11428 ::DRAW1,K3,L3TOES,F3 

11429 ::DRAW1,E3,F3TOO3,P3 

11430 ::DRAW1,K3,L3TOO3, P3 

11431 ::DRAW1,G3,H3TOMNS,N3 

11432 ::DRAW1,13, JSTONS,N3 

11433 ::DRAW1,03,P3TON3S,N3 

11434 RETURN 

11435 :GRAPHIC 1,1 

11436 X3=S0 :REMN”X COORD. OF BOTTOM LH 
CORNER” 

11437 Y3=100 :REM”Y COORD. OF BOTTOM LH 
CORNER” 

11438 2370 :REM”’DISTORTION FACTOR” 
11439 A3=100 :REM”WIDTH OF PRISM” 
11440 B3=60 :REM”DEPTH OF PRISM” 
112441 C3"SO :REM”HEIGHT OF PRISM” 
11442 GOSUB 11415 

11443 GOTO 11443 


READY. 
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11413 
11414 
114%15 
11416 
11417 
11418 
11419 
114%20 
littel 
littee 
11i%e3s 
11%e4 
114%e5 
114%26 
114%e7 
114%28 
11%e3 
11430 
11431 
11432 
11433 
11434 
11435 
11436 
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La cm ne 


REM”PRISM C-64 

GOTO 11435 

REN” SUBROUT .F.PRISM” 
D3=INTCSORCB3%2/83) 
U3S=INTCD3/2) 
E3=X3:F3=Y3 
G3=X3+A3:H3=Y3 
I3=X3+A3+D3: J3=Y3-D3 
K3=X3+D3:L3=Y3-D3 
03="X3+U3+23: P3=Y3-U3-C3 
M3=X3+A3+U3+2Z3 
N3=Y3-U3-C3 

:LINE E3,F3,G3,H3,1 
:LINE. G3,H3S,13;J3,1 
:LINE 13,J3,K3,L3,1 
:LINE K3,L3,E3,F3,1 
:LINE E3,F3,03,P3,1 
:LINE K3,L3,03,P3,1 
:LINE G3,H3,M3,N3,1 
:LINE 13,J3,M3,N3,1 
:LINE 0O3,P3,M3,N3,1 
RETURN 

HIRES 0,7 

X3=50 :REM”X COORD. OF BOTTOM LH 


CORNER” 


11437 


Y3=100 :REM”Y COORD. OF BOTTOM LH 


CORNER” 


11438 
114393 
11440 
1141 
£iSte 
11443 


READY. 


23=0 
A3=100 


:REMN”DISTORTION FACTOR” 
:REM”’WIDTH OF PRISM” 
B3=60 :REM”DEPTH OF PRISM” 
C3"SO :REMN”HEIGHT OF PRISM” 
GOSUB 11415 

GOTO 11443 
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B3.2.4 CYLINDERS 


The CYLINDER program can draw any type of cylinder. 

You use X4 and Y4 to enter the center of the bottom circle. 

Use A4 to determine the diameter of the cylinder. 

Variable B4 tells the computer how high the cylinder is to be. 

If you enter a negative value for B4, the cylinder will be drawn 
downwards from the starting point. In this case, the starting point will lie 
not in the center of the lower circle, but in that of the upper circle. 

In order to avoid any misunderstanding: starting coordinates X4 and Y4 
are always located at the point initially defined; only the direction in which 
the figure is drawn changes. 


Variable Z4 is the distortion factor which displaces the upper or lower 
circle in the x direction. This enables us to draw tilted cylinders. 


You can see some examples of different cylinder forms in figure 28. 
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FIGURE 27: CYLINDER 





FIGURE 28: CYLINDER VARIANTS 
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11450 REM”CYLINDER C-12e8” 

11451 GOTO 11466 

11452 REM”SUBROUT.F.CYL.” 

11453 RY=INTCAY/2) 

11454 S4=INTCRY/e) 

11455 E4=X4-R4: FY“ 

11456 G4=X4+R4: HeeY4t 

12457 T4=X4+R4+24: J47Y4-BYt 

11458 K4=X4-R4+24: L4Y=Y4-BY 

114S9 O4%=X4: PHY 

11460 MY¥=X4+Z24: N4Y=Y4-BY4 

11461 :CIRCLE1,04%,P%,R4,5S% 

1146e :CIRCLE1,MN4,N4,R4,54% 

11463 ::DRAW1,E4,F4TOKY,LY 

11464% ::DRAW1,GY4,H4TOIY, J4 

1146S RETURN 

11466 :GRAPHIC 1,1 

11467 X4=100 :REM”X COORD. OF LOWER CIRC 
LE CENTER” 

11468 Y4=100 :REM”Y COORD. OF LOWER CIRC 
LE CENTER” 

11469 24=0 :REM”DISTORTION FACTOR” 
11470 AY=SO :REM”CYLINDER DIAMETER” 
11471 BY=80 :REM”’CYLINDER~HEIGHT” 
11472 GOSUB 1145e 

11473 GOTO 11473 


READY. 
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11450 REMN”CYLINDER C-64 

11451 GOTO 11466 

1145e REMN”SUBROUT.F.CYL.” 

11453 RY=INTCAY/2) 

11454 SY4=INTCRY4/2) 

11455 E4=X4-R4: F4=vy4¥ 

11456 GY=X4#+R4: H4=Y4 

L14S7 I4=X4+R4+24: J4-Y4-BY 

L1i4#S8 KY=X4-R4+24: LY=Y4-BY 

11459 O4=X4: P4=Y4 

11460 MY4Y=X4+24:N4=Y4-BY4 

11461 :CIRCLE O4%,P4,R4Y,S4,1 

1it6e :CIRCLE MY4Y,N4,RY4,S4,1 

11463 :LINE EY,F4,KY,L4, 1 

11464 :LINE G4,H4,1I4, J4,1 

11465 RETURN 

11466 HIRES 0,7 

11467 X4=100 :REM”X COORD. OF LOWER CIRC 
LE CENTER” 

11468 Y4=100 :REN”Y COORD. OF LOWER CIRC 
LE CENTER” 

11469 24=0 :REM”’DISTORTION FACTOR” 
11470 AY=50 :REMN”CYLINDER DIAMETER” 
11471 BY=-BO~ : REN”CYLINDER~HEIGHT” 
11%7e GOSUB 114Se2 

114%73 GOTO 11473 


READY. 
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B3.2.5 CONES 


The CONE program can draw cones (even if somewhat stylized) of any 
type. 


Again, you use X5 and Y5 to define the coordinates of the center of the 
circular base. 


RS5 defines the radius of the cone base. 


Here, we specify not the diameter, but the radius, because that is what we 
do for cones. It would be better, because it would be more systematic, if 
either the diameter or the radius were specified uniformly for all figures, 
but that's life. We must simply note that sometimes we have to enter the 
diameter and sometimes the radius. 


BS is used to determine the height of the cone. 


If BS has a positive value, the tip of the cone points upwards; if it is 
negative, the tip points downwards. 7 


Here too, there is a distortion factor - variable Z5. If you enter a positive 
value for Z5, the tip of the cone moves to the right by the amount 
specified. If the values are negative, the tip moves to the left.The 
dimension entered for Z5 thus determines the direction in which the cone 
tilts and the amount by which it does so. 


Figure 30 gives examples of different types of cones that can be drawn 
using this program. 
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11480 REM”CONE C-128” 

114681 GOTO 11492 

11482 REN”SUBROUT.F.CONE” 

11483 SS=INTCRS/2) 

11i4%84% ES=X5-RS:FS=yS 

1148S GS=XS+RS:HS=YS 

11486 15=XS+2S: JS=yYS-BsS 

11487 KS=XS:LS=yS 

11488 :CIRCLE1,KS,L5,R5,S5 

112489 ::DRAW 1,ES,FSTOIS,JS 

114950 ::DRAW 1,65,HSTOIS, JS 

114931 RETURN 

11432 :GRAPHIC 1,1 

11493 X5=100 :REM”X COORD. OF THE BASE C 
ENTER” 

114954 Y5=100 :REM”Y COORD. OF THE BASE C 
ENTER” 

11495 2=0 :REM”DISTORTION FACTOR” 
114356 RS=SO :REM”RADIUS OF THE BASE” 
11497 BS=B8O :REM”HEIGHT OF THE CONE” 
114938 GOSUB 11462 

11435 GOTO 11499 


READY. 


11480 REM”CONE C-64 

11481 GOTO 114S9e 

11482 REN” SUBROUT.F.CONE” 

11483 SS=INTCRS/2) 

1Li4tB4% ES=XS-RS: FS=-yY5S 

11485 GS=XS+RS:HS=YS 

11486 I15=xX5+2ZS: JS=YS-BS 

11487 KS=XS:LS=y5 

11488 :CIRCLE KS,L5,R5,S5,1 

1148S :LINE ES,FS,15,J5,1 

11490 :LINE GS,HS,15,J5,1 

11491 RETURN 

11492 HIRES 0,7 

114953 X5=100 :REM”X COORD. OF THE BASE C 
ENTER” 

1i%5% Y5=100 :REM”Y COORD. OF THE BASE C 
ENTER” 

11495 2=0 :REM”DISTORTION FACTOR” 
11436 RS=SO :REM”RADIUS OF THE BASE” 
11497 BS=BO :REM”HEIGHT OF THE CONE” 
11498 GOSUB 11462 

11499 GOTO 11499 


READY. 
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FIGURE 29: CONE 


j \ 
; \ 
4 
‘ 
as 
) 
a 
oe ance a 
FIGURE 30: CONE VARIANTS 
| 
| 
i i 
| 
| | | 
ra \, | | 
: f \ 
fr ~ “= . MN | i 
4 ‘ _ i 
se Z “ i \. | 
7 ae : = 
—_ 


165 


Abacus Software CAD for the C-128 and C-64 


——— eee 
B3.2.6 TRUNCATED CONES 


As its name implies, the TRUNCATED CONE program is used to draw 
any type of truncated cone. 


X6 and Y6 define the coordinates of the center of the lower circle. 
R6 gives the radius of the lower circle. 
V6 gives the radius of the upper circle. 


The lower circle can be larger or smaller than the upper circle. There is a 
special case in which both these circular areas are the same, in which case 
you have drawn a cylinder. 


You use variable B6 to determine the height of the truncated cone. If the 
value for B6 is positive, the truncated cone will be drawn upwards from 
the starting point. If it is negative, it will be drawn downwards from the 
Starting point. 


It may happen that, by entering different variables, you get two truncated 
cones which look identical. For example, at the bottom, you have the 
same small circular area and at the top the same large area, although the 
values of R6 for the first and second truncated cones are different. 


The crucial difference between these two truncated cones then lies in the 
position of the starting point or, to put it more precisely, in the direction in 
which the figures are drawn from the Starting point. This is important 
when putting together several macros to form a composite figure. 


Here, the distortion factor is Z6. Once again, it determines by how much 
and in which x direction the upper circle of the truncated cone is to be 
displaced in order to draw a tilted truncated cone. 


You will find examples of certain variants that can be produced using this 
program in figure 32. 
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FIGURE 31: TRUNCATED CONE 
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FIGURE 32: TRUNCATED CONE VARIANTS 
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11508 REM”TRUNCATED CONE C-128” 

11503 GOTO 11524 

11510 REM”SUBROUT.F.TR.CONE” 

11511 S6=INTCR6/2) 

11512 W6=INTCU6/2) 

11513 E6=X6-R6:F6=Y6 

11514 G6=X6+R6: H6=Y6 

11515 I6-X6+VU6+26: J6=Y6-B6 

11516 K6=X6-VU6+26:L6=Y5-B6 

11517 O6=X6+26: P6=Y6-B6 

11518 M6=X6:N6=Y6 

11515 :CIRCLE1,M6,N6,R6,S6 

11520 :CIRCLE1,06,P6,VU6,w6 

115e1 ::DRAW1,E6,F6TOK6,L6 

115ee ::DRAW1,G6,H6TOI6, J6 

11523 RETURN 

115e4% :GRAPHIC 1,1 

115e€5 X6=100 :REM”X COORD. OF CENTER OF 
LOWER CIRCLE” 

115e€6 Y6=100 :REM”Y COORD. OF CENTER OF 
LOWER CIRCLE” 

11527 26=0 >REM”’DISTORTION FACTOR” 
1152€8 R6=SO :REM”RADIUS OF LOWER CIRCLE 


115e35 V6=20 :REM”RADIUS OF UPPER CIRCLE 
11530 B6=BO :REM”HEIGHT OF TRUNCATED Co 
NE 33 

11531 GOSUB 11510 

1153e GOTO 1153e 


READY. 
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11508 
11503 
11510 
11511 
1151¢e 
11513 
11514 
11515 
11516 
11517 
11518 
115193 
11520 
115e1 
11522 
115e3 
115e% 
11525 
LOWER 
11526 
LOWER 
11527 
11528 


115e9 


11530 
NE 39 

11531 
1153e 


READY. 
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REM” TRUNCATED CONE 
GOTO 115e4% 

REM” SUBROUT .F.TR.CONE” 
S6=INTCR6/e) 
W6E=INTCUG/2) 
E6=X6-R6:F67Y6 
G6-X6+R6:H6=Y6 
16=X6+VU6+2Z6: J6=Y6-B6 
K6=X6-V6+26: L6=Y6-B6 
O6=X6+26: P6~=Y6-B6 
M6=X6:N6"Y6 


C-6. 


-CIRCLE M6,N6,R6,S6,1 

-CIRCLE 06,P6,V6,W6,1 

-LINE E6,F6,K6,L6,1 

LINE G6,H6,16,J6,1 

RETURN 

HIRES 0,7 | 
X6=100 :REN”’X COORD. OF CENTER OF 
CIRCLE” 

Y6=100 :REM”Y COORD. OF CENTER OF 
CIRCLE” _ 

26=0 :REM’DISTORTION FACTOR” 
RG6=SO :REM”RADIUS OF LOWER CIRCLE 
UG=20 :REM”’RADIUS OF UPPER CIRCLE 
BG=80 :REM’HEIGHT OF TRUNCATED CO 
GOSUB 11510 

GOTO 11532 
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B3.2.7 SPHERES 


The SPHERE program can draw any spheres (in a very stylized manner). 

In my view, a sphere is a interesting shape but it is difficult to represent it. 

At best, it can be done by artists such as Durer or Leonardo da Vinci, in 

photography or by rather powerful computers. In this respect, we shall 
nake things very easy for ourselves from the outset. 


If we see a circle containing two ellipses, that will be a sphere for our 
purposes. 


We use variables X7 and Y7 to define the coordinates of the sphere 
center. 


We use A7 to determine its diameter. 


That's all. As regards variants, for us there are only small or large spheres 
and we have no intention of distorting such a fine looking figure. 


Luckily, spheres are extremely rare in technical drawings. Not only are 
they difficult to represent, but they are also difficult to produce. That is 
why they occur so seldom in structures. 


FIGURE 33: SPHERE 
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11540 REM”SPHERE C-1°B” 
11541 GOTO 11549 

11542 REM”’SUBROUT.F.SPH.” 
11543 B7=INTCA7/2C) 

11544 C7=INTCA7/4) 

11545 :CIRCLE1,X7,Y7,B7,B7 
11546 :CIRCLE1,X7,Y7,B7,C7 
11547 :CIRCLE1,X7,Y7,C7,B7 
11548 RETURN 

11549 :GRAPHIC 1,1 

11550 X7=100 :REMN”X COORD. OF SPHERE CEN 


11551 Y7=100 :REMN”Y COORD. OF SPHERE CEN 
11552 A7=100 :REM”’DIAMETER OF THE SPHERE 


11553 GOSUB 1154e 
115S4% GOTO 11554 


11540 REMN”SPHERE C-bit 
11541 GOTO 11549 

11542 REN” SUBROUT.F.SPH.” 
11543 B7=INTCA7/c3) 

11544 C7=INTICA7/4) 

11545 :CIRCLE X7,Y7,B7,B7,1 
11546 :CIRCLE X7,Y7,B7,C7,1 
11547 :CIRCLE X7,Y7,C7,B7,1 
11548 RETURN 

11549 HIRES 0,7 

11550 X7=100 :REM”X COORD. OF SPHERE CEN 


11551 Y7=100 :REM”Y COORD. OF SPHERE CEN 
11552 A7=100 :REM”DIAMETER OF THE SPHERE 


11553 GOSUB 115'te 
11554, GOTO 11554 
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B4 THREE-DIMENSIONAL DRAWINGS FROM MACROS 


We have not made the programs for the different macros Just for the sake 
of it. They all look very fine, but what we want to do with them is 
produce more complex drawings, in the same way as with building 
blocks. To do so, we group together the individual macro programs in the 
Same way as we did with the basic element programs. 


For the sake of clarity and simplicity, we change each macro program 
again into a subroutine and string all the subroutines together. A MIX 
routine then puts together the complex figures from the macros in a simple 
manner. 


Of course, individual planes can be redefined and macro procedures can 
be strung together with basic element procedures. The composite 
drawings that we wish to produce can be represented in three different 
ways. 


We are talking here of three representational models. We shall now be 
presenting these models. 


B4.1 "WIRE FRAME MODELS" 


A "wire frame model" is a three-dimensional representation of one or 
more shapes all the edges of which are drawn. The model then looks 
somewhat as if it has been put together using wire. Hence the funny 
name. 


This method of representation has the advantage of simplifying the 
computer's work considerably. It does not have to decide (i.e. we do not 
have to tell it) which edges are visible and which are not. Whenever an 
edge has to be drawn, it will be drawn so that it is visible. In plain 
language, this means: programming, entering, computing, Storing and 
time consumption are kept to a minimum. 


The drawback is that it is sometimes not clear how things are put together. 
Sometimes, we do not know which is the "right" way of looking at the 
shape. Very different spatial impressions can be given depending on the 
imagination of the observer and his ability to perceive physical 
relationships. In very complex drawings, this can sometimes be very 
annoying. 


Figures 34 and 35 show what drawings put together using "wire frame" 
model macros may look like. 
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The WIRE1 program shows the work involved, with most of the program 
representing the stringing together of the individual macro procedures, 
ie. from lines 11350 to 11548. 


Then comes the MIX procedure that puts together figure 34. If we wish to 
draw figure 34, all we need to do is feed this MIX procedure with new 
entry data. The amount of work involved is very small. By changing just 
a few lines, a completely different picture is obtained. You will certainly 
appreciate the great advantage of using macros and the program structure 
with the help of which they are put together. 


FIGURE 34: "WIRE FRAME MODEL" FROM MACROS 








FIGURE 35: "WIRE FRAME MODEL" FROM MACROS 
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11350 
11351 
11352 
11353 
11354 
11355 
11356 
11357 
11358 
11359 
11360 
11361 
11362 
11363 
11364 
11365 
11366 
11367 
11368 
11382 
11383 
11384 
11385 
11386 
11387 
11388 
11389 
11390 
11391 
11392 
11393 
11394 
11395 
11396 
11397 
11398 
11399 
11415 
11416 
11417 
11418 
11419 
11420 
11421 
11422 
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REM’WIRE1 C-128” 
GOTO 11550 | 
REM PARALLELEPIPED 
D1=INTCSQRCB1°2/8)) 
E1=X1:F1=Y1+C1 
G1=X1+A1:H1=Y1+C1 
11=X1+A1+D1:J1=Y1+C1-D1 
K1=X1+D1:L1=Y1+C1-D1 
M1=X1+A1:N1=Y1 
01=X1:P1=Y1 
Q1=X1+A1+D1:R1=Y1-D1 
S1=X1+D1:T1=Y1-D1 
::BOX 1,X1,Y1,A1+X1,C1+Y1 
::BOX 1,51,T1,A1+S1,C1+T1~ 
::DRAW1,E1.F1TOK1,L1 
::DRAW1,G1,H1TOI1,J1 
-: DRAW1,M1,N1TOO1,R1 
::DRAW1,01,P1TOS1,T1 
RETURN 
REM PYRAMID 
D2=INTCSOR(B2*2/8)) 
U2=INTCD2/2) 
U2=INTCA2/2) 
E2=X2:F2=Ye2 
G2=xX2+A2:H2=Y2 
12=X2+A2+D2: J2=Ye-De 
K2=X2+D2: LP=Ye2-De 
M2=X2+U2+U2+Z22 : N2=Ye-U2-Ce 
::DRAW1,E2,F2TOG2, He 
::DRAW1,G2,H2TOI2, Je 
::DRAW1, 12, J2TOK2. Le 
:: DRAW1,K2, LETOE2, Fe 
:: DRAW1,E2,F2TOM2,N2 
: : DRAW1, G2, H2TOM2, N2 
:: DRAW], 12, J2ETOM2,N2 
:: DRAW], K2, LETOM2, N2 
RETURN 
REM PRISM 
D3=INTCSOR(CB3%2/8)} 
U3=INTCD3/2) 
E3=X3:F3=Y3 
G3=X3+A3:H3=Y3 
13=X3+A3+D3: J3=Y3-D3 
K3=X3+D3:L3=Y3-D3 
03=X3+U3+23 : P3=Y3-U3-C3 
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11423 
114%e4 
114%e5 
11426 
114%e7 
11428 
114%e3 
11430 
11431 
1143e 
11433 
11434 
114%Se 
1i3s3 
11454 
11455 
11456 
11457 
114568 
11453 
11460 
11461 
114%6e 
11463 
11464 
11465 
114%6e 
11463 
11484 
11485 
11486 
11487 
11488 
11483 
11490 
11391 
11510 
11511 
1151e 
11Si3 
11514 
11 Si%5 
11516 
11517 
11518 
11519 
115e0 
115e1 
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M3=X3+A3t+U3+2Z3 
N3=Y3-U3-C3 
-: DRAW 1,E3,F3TOG3,H3 
-: DRAW 1,63,H3TOI3,J3 
: : DRAW 1.13, J3TOK3,L3 
-: DRAW 1,K3,L3TOE3,F3 
:: DRAW 1,E3,F3T0O03,P3 
:: DRAW 1,K3,L3TOO3,P3 
:: DRAW 1,63,H3TOM3,N3 
-: DRAW 1,13, JSTON3S,NS 
:: DRAW 1,03,P3TON3,N3 
RETURN 
REM CYLINDER 
RY=INTCAY/2)I 
SY=INTCRY/2) 
E4Y=X4-R4:F4=Y4 
G4=X4+R4:H4=Y4 
T4=X4+R4+24: JU=Y4-BYt 
K4=X4-R4+24: L4Y=Y4-BY4 
O4=X4:P4=Y4 
M4=X4+Z4:N4=Y4-B4 
:CIRCLE1 ,O4%,P4,R4Y,S4 
:CIRCLE1 ,M4,N4,R4,54 
:: DRAW1,E4,F4YTOKY, LY 
:: DRAW1,G4,H4TOIY, J4% 
RETURN 
REM CONE 
SS=INTCRS/2) 
ES=XS-RS:FS=Y5S 
65=XS+RS:HS=Y5 
1S$#XS+2S: JS=YS-BS 
K5=XS:LS=Y5 
-CIRCLE1,KS,LSTORS,5SS 
-: DRAW 1,E5,F5,15,J5 


:: DRAW 1,G65,HS5,15,J5 
RETURN 

REM TRUNCATED CONE 
S6“INTCRB/2) 
W6=INTCUB/2e] 


E6=X6-R6:F67Y6 
G6=X6+R6:H6=Y6 
16=X6+VU6+Z6: J6=Y6-B6 
K6=X6-U6+Z6: L6=Y6-B6 
06=X6+Z6: P6=Y6-B6 
M6=X6:N6=Y6 
:-CIRCLE1,M6,N6,R6,56 
:CIRCLE1,06,P6,V6,W6 
:: DRAW 1,E6,F6ETOK6,L6 
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11522 
11523 
Liste 
11543 
11544 
11545 
11546 
11547 
11548 
11550 
11551 
Lis5se 
11553 
11554 
11555 
11556 
11557 
11558 
11553 
11560 
11561 
11562 
11563 
11564 
11565 
11566 
11567 
11568 
11569 
11570 
11571 
11572 
11573 
11S74 
11575 
11576 
11577 
115768 


READY. 


CAD for the C-128 and C-64 


:: DRAW 1,G66,H6TOI6, J6 
RETURN 

REM BALL 
B7=INTCA7/2) 
C7=INTCA7/4) 
:CIRCLE1,X7,Y7,B7,B7 
:CIRCLE1,X7,Y7,B7,C7 
:CIRCLE1,X7,Y7,C7,B7 
RETURN 

REM MIX 

:GRAPHIC 1,1 

X1=20: Y1=1B89 
A1l=e10:B1=170:C1=10 
GOSUB 11352 

X4=110: Y4=160 

At=60: B4=60 

GOSUB 11452 

X4=110: Y4=160 

A4=40: BY4=60 

GOSUB 11452 

X6=110: Y6=100 

R6=30: V6=60 

B6=70 

GOSUB 11510 

X6=110: Y6=100 

R6=20: V6=50 

B6E=70 

GOSUB 11510 

X4#=22e0: Y4=170 

A4Y=60: B4=10 

GOSUB 114S5e 

X1=200: Y1=80 
A1=30:B1i=90:C1=60 
GOSUB 113Se 
X7=23S:Y7=30 

A7=60 

GOSUB 11S4e 

GOTO 11578 
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ane 


11350 REM”WIRE1 C-64 
11351 GOTO 11550 

11352 REM PARALLELEPIPED 
11353 D1i=INTCSOR(B1%2/8)) 
113S5% E1"X1:F1i"Y1+C1 

11355 G1=X1+A1:H1=Y1+Cl 
11356 11=X1+A1+D1:J1=Y1+C1-D1 
11357 K1=X1+D1:L1-y1i+C1i-Dl 
11358 M1=X1+A1:N1=Y1 

11359: G1=-X1i;Piwyi 

11360 Q1=X1+A1+D1:R1=Y1-D1 
11361 S1"-X1+D1:T1l=Y1-Dl 
11362 :REC X1,Y1,A1,C1,1 
11363 :REC S1,T1,A1,C1,1 
11364 :LINE E1,F1,K1,L11,1 
11365 :LINE G1,H1,11,J1,1 
11366 :LINE M1,N1,Q01,R1,1 
11367 :LINE 01,P1,51,T1,1 
11368 RETURN 

11382 REM PYRAMID 

11383 De=INTCSORCBe%e/6I) 
11384 Ue=INTCDe/2e) 

1138S Ve=INTCA2/2) 

11386 Ee=Xe:FeYe 

11387 Ge=Xet+Ae: He=Ye 

11388 l2e=xXe+Ae+De: Je=Ye-De 
11389 Ke=Xe+De:Le=Ye-De 
11390 Me=X2+Ve+Ve+Ze: Ne=Ye-Ue-Ce 
11391 :LINE Ee,Fe,Ge,He,1 
11392 :LINE Ge,He,Ile,Je,1 
11393 :LINE Ie,J2,Ke,Lle,1 
11394 :LINE Ke,Le,Ee,Fe,1 
1139S :LINE Ee,Fe,Me,Ne,1 
11396 :LINE Ge,He,Me,Ne,1 
11397 :LINE I2,J2,Me2,Ne,1 
11398 :LINE Ke,Le,Me,Ne,1 
11399 REUTRN 

11415 REM PRISM 

11416 D3=-INTCSQRCB3%2/8)) 
12417 US=INTCD3/2) 

11418 E3="X3:F3"Y3 

11419 G3=X3+A3: H3=Y3S 

11420 13=X3+A3+D3: J3=Y3-D3 
11421 K3=X3+D3:L3=Y3-D3 
11422 03=X3+U3+Z3: P3=Y3-U3-C3 
11423 N3=X3+A3+U3+2Z3 
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11¢e% 
11425 
11426 
11427 


11428 


11i%eg 


11430 : 


11431 
11432 
11433 
11434 
11452 
11453 
11454 
11455 
11456 
11457 
11458 
11459 
11460 
11%61 
11462 
11463 
11464 
1146S 
11462 
11483 
11484 
1148S 
11486 
11487 
11488 
114893 
11430 
11491 
11510 
fH a | 
11512 
11513 
11514 
11515 
11516 
11517 
11518 
11519 
11520 
115e1 
1152e 


CAD for the C-128 and C-64 


N3=-Y3-U3-C3 

:LINE E3,F3,G63,H3,1 
: G3,H3,13,33.1 
I3,J3,K3,L3,1 
K3,L3,E3,F3,1 
E3,F3,03,P3,1 
K3,L3,03,P3,1 
63,H3,N3,N3,1 
I3,J3,M3,N3,1 
: 03,P3,MN3,N3,1 
RETURN 
REM CYLINDER 
R4=INTCAY/2) 
S4Y=INTCRY/e2) 
E4-X4-R4: F4¥-yy 
G4=X4+R4: H4=Y4 
I4=X4+R4+24: JY=Y4¥—BYe 
K4=X4-R4+24: L4Y=yY4¥—By 
O4=X4; PY=VYYy 


MY=X4+24: N4Y=y4—By 
:CIRCLE O4,P4,R4,S4,1 
:CIRCLE M4,N4,R4,S4,1 
:LINE E4,F4,K4,L4,1 
:LINE G4Y,H4,1I4,J4,1 
RETURN 

REM CONE 

SS"INTCRS/2) 
ES7X5-RS: FS=yYS 


GS=X5+RS:HS=Y5 
IS=X5+25: JS=YS-BS 
KS=X5:LS=YS 

:CIRCLE KS,L5,R5,S5,1 
:LINE ES,F5,15,J5,1 
:LINE GS,HS,15,J5,1 
RETURN 

REM TRUNCATED CONE 
S6=INTCRG/2] 
W6=INTCUG/2) 
EG=X6-R6:F6=Y6 
G6=X6+R6:H6=Y6 
I6=X6+U6+26: J6=Y6—-BE 
K6=X6-U6+Z6 : L6=YB-BGE 
O6=X6+26: P6=Y6-BE 
M6=X6:N6=Y6 

:CIRCLE MG,N6,RG,S6,1 
:CIRCLE 06,P6,U6,W6,1 
:LINE £E6,F6,K6,L6,1 
: LINE G6,H6,I6,J6,1 
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115e3 
1154%e 
115%3 
11544 
17545 
11546 
11547 
11546 
11550 
11551 
1155e 
11553 
11554 
11555 
11556 
11557 
11558 
11553 
11560 
11561 
1156e 
11563 
11564 
11565 
11566 
11567 
11568 
115695 
11570 
11571 
1157e 
11573 
11574 
11575 
11576 
11577 
11578 


READY. 
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ee TT 


RETURN 

REM BALL 
B7=INTCA7/2) 
C7=INTCA7/4) 
:CIRCLE X7,Y7,B7,B7,1 
:CIRCLE X7,Y7,B7,C7,1 
:CIRCLE X7,Y7,C7,B7,1 
RETURN 

REM MIX 

HIRES 0,7 

X1=20: Y1=189 
A1=210:B1=170:C1=10 
GOSUB 11352 

X4=110: Y4=160 
A4=60: BY=60 

GOSUB 11452 

X4=110: Y4=160 
A4Y=40: BY=60 

GOSUB 11452 

X6=110: YB=100 
RG=30: U6=60 

B6=70 

GOSUB 11510 

X6=110: Y6=100 
R6=20: U6=S0 

B6=70 

GOSUB 11510 

X4=220: Y4=170 
A4=60: BY=10 

GOSUB 11452 

X1-200: Y1=80 
A1=30:B1=90:C1=60 
GOSUB 11352 

X7=235: Y7=30 

A7=60 

GOSUB 11542 

GOTO 11578 
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B4.2 SURFACE MODELS 


If we wish to overcome the drawbacks of a "wire frame" model, i.e. the 
possible lack of clarity, we can use a surface model to represent the 
shapes. 


In these models, only the visible edges are drawn in. We then see the 
figure as if it were opaque. It presents, so to speak, only its visible 
surfaces. 


And we can immediately see what that means - more work. We have to 
make it clear to the computer which edges are visible and which are not. 
With simple shapes, this represents an acceptable work load but with 
complex shapes and, in any case, composite figures, this work load 
swiftly becomes intolerable. 


Intolerable for us, because we have to do a great deal of programming. 
Intolerable for the computer, because its memory is soon overrun by the 
sheer amount of data. 


Of course, we can cut down on the programming work if we give the 
computer a set of automatic commands whereby it can tell which edges 
have to be drawn and which do not. That makes things easier for us - at 
the expense of the computer. Commercial systems have a built-in 
automatic surface model. We do without this because we take such 
pleasure in programming. 


B4.2.1 MACROS AS SURFACE MODELS 

From the work viewpoint, we can still afford to define as surface models 
the macros that we have already defined as "wire frame" models. 

Figures 36 to 42 show us how the macros will look when drawn in this 
way. The program names are prefixed in each case by an "O" to 


distinguish them from the "wire frame" model macros. And so we obtain 
the following programs: 


OTRUNCATED CONE 
OSPHERE 
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These are derived from the "wire frame" model macro programs and tell 
the computer which edges to leave out in order to produce a proper 
surface model. 


Once again, these can be put together with each other and with the basic 
programs, so we can use them to construct complex surface models. 
However, there are one or two things to be said in this connection. 


B4.2.2 SURFACE MODELS FROM MACROS 


If we put together drawings using surface macros, we once again have 
edges that are not visible. 


The computer draws the macros in the way we have supplied them, 1.e. as 
individual macros. It does not know which edges have to disappear as a 
result of combining them. And so, we have the vicious circle of desired 
results and the work involved all over again. 


Figure 43 shows you a combination of surface macros. 


In the left-hand figure, you can see half of an ellipse which, although it 
belongs to the individual macro, has no place in the combined shape (as a 
surface model). This error has been corrected in the right-hand figure, but 
only partially - a few dots of the ellipse still remain. 


Why is that? Here we are faced with an additional difficulty: When 
drawing an ellipse, the computer produces rounded up or rounded down 
dot coordinates. And so, if you wish to delete a line of this kind by 
altering the character mode (line 11563 in FIGURE43 program), it may 
happen that other rounded coordinate values occur. 


This depends on how many dots you have calculated between two angular 
values of the arc (please read up on the CIRCLE (ARC SIMON's 
BASIC) command in the handbook) and on the start and end angles that 
you enter. 


If we also want to delete the remaining dots, we can insert the program 
for our electronic pencil eraser- PEN - and thus make the last corrections. 


As you can see, desired results = work to the power of 2 = etc... 
Incidentally, I have listed here the FIGURE43 program. This gives you 


an example of how to print pictures from the screen. The details are given 
in lines 11570 to 11578. 
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FIGURE 36: VARIANTS OF A PARALLELEPIPED AS A 
SURFACE MODEL 


FIGURE 37: VARIANTS OF A PYRAMID AS A SURFACE 
MODEL 
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FIGURE 38: VARIANTS OF A PRISM AS A SURFACE 
MODEL 


FIGURE 39: VARIANTS OF A CYLINDER AS A SURFACE 
MODEL : 
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FIGURE 40: VARIANTS OF A CONE AS A SURFACE 
MODEL 
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FIGURE 41: VARIANTS OF A TRUNCATED CONE AS A 
SURFACE MODEL 
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FIGURE 42: SPHERE AS A SURFACE MODEL 
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FIGURE 43: SURFACE MODEL PUT TOGETHER USING 
MACROS -NOT CORRECTED ON THE LEFT ere 
CORRECTED ON THE RIGHT 
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11350 
11351 
11352 
11353 
11354 
11355 
11356 
11357 
11358 
11359 
11360 
11361 
11362 
11363 
S1,T1 
11365 
11366 
11367 
11368 
11369 
11370 
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REM”OPARALLELEPIPED C-1e6” 
GOTO 11369 
REM” SUBROUT.F.PARALLELEP.” 
D1i=INTCSQRCB1%2/B6)) 
El=xX1;Fi=-yYitctl 
G1=X1+A1:H1i=Y1+Cl 
11=X1+A1+D1: J1=Y1+C1—-D1 
K1=X1+D1:L1=Y1+C1-D1 
M1=X1+A1:N1=Y1 
Ot=xXi: Pieyi 
Q1=X1+A1+D1:R1=Y1-D1 
S1=X1+D1:T1=Y1-D1 

: :BOX1,X1,Y1,A1+X1,C1+Y1 
:: DRAW, 11, J1ToOO1, R1: DRAW! ,Q1,R1TO 


:: DRAW1,G1,H1iTOI1, J1 
>: DRAW1 ,M1,N1T001,R1 
: : DRAW ,01,P1T051,T1 


CORNER” 


11371 


CORNER” 


11372 
D” 
11373 
18 li 
11374 
ED” 
11375 
11376 


READY. 


RETURN 

:GRAPHIC 1,1 

X1=SO :REMN”X COORD. FOR UPPER LH 
Y1=S50 :REMN”Y COORD.~FOR UPPER LH 
A1l=BO :REMN”WIDTH OF PARALLELEPIPE 
Bli=4O :REM”DEPTH OF PARALLELEPIPE 


C1i=100 :REM”HEIGHT OF PARALLELEPIP 


GOSUB 11352 
GOTO 11376 
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11350 
11351 
11352 
11353 
11354 
11355 
11356 
11357 
11358 
11359 
11360 
11361 
11362 
11363 
igs ore 

11365 
11366 
11367 
11368 
11369 
11370 





REM”GPARALLELEPIPED C-64 
GOTO 11369 

REM” SUBROUT .F.PARALLELEP.” 
D1l=INTCSQRCB1%2/8)) 
E1"X1:F1=Y1+C1 
G1=X1+A1:H1=Y1+C1 
T17X1+A1+D1: J1=yY1i+C1-Di1 
K1=X1+D1:L1=Y1+C1-D1 
M1=X1+A1:N1=Y1 
O1=X1:P1=Y1 
Q1=X1+A1+D1:R1=Y1-D1 
JL=Xi+D1:Ti=Y1-Dt 

:REC X1,Y1,A1,C1,1 


>LINE 11,J31,Q01,R1,1:LINE 01,R1,S1, 


:LINE G1,H1,11,J1,1 
>LINE M1,N1,01,R1,1 
*LINE O1,P1,S1.T1,1 
RETURN 

HIRES 0,7 

X1=SO :REMN”X COORD. 


CORNER” 


11371 


Y1=50 


CORNER” 


11372 
D” 
11373 
11374 
ED 33 
11375 
11376 


READY. 


A1=60 
B1=40 
C1=100 


GOSUB 1135e 
GOTO 11376 
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FOR UPPER LH 
>REN”Y COORD.~FOR UPPER LH 
:REM”’WIDTH OF PARALLELEPIPE 
:REM”’DEPTH OF PARALLELEPIPE 


>REMN” HEIGHT OF PARALLELEPIP 
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11380 
11381 
1138e 
11383 
11384 
11385 
11386 
11387 
11388 
11389 
113390 
11391 
11332 
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REM”OPYRANID C-128” 
GOTO 11400 

REM” SUBROUT.F.PYR” 
De=INTCSORCBe*%2e/8)) 
Ue=INTCDe2/2) 
Ve=-INTCA2/2) 
Ee=Xe:Fe=Ye 

Ge=Xe+Ae: He=Ye 
Tle=Xe+Aet+De: Je=Ye-De 

Ke tXe+De:Le=Ye-De | 
Me=Xe+Vet+Ue: Ne=Ye-Ue-Ce 
: DRAW1 , Ee, FeTOGe, He 
:DRAW1,Ge,HeTOIe, Je: IF Yet+Ce>Ye TH 


EN 11395 


11393 
11394 
11335 
11396 
11397 
11399 
11400 
11401 


:: DRAW 1,12, J2@TOKe,Le 

: : DRAW 1,Ke,lLeTOEe,Fe 

>: DRAW 1,EFe,FeTOMe,Ne 

:: DRAW 1,G62,HeTOMe,Ne 

>: DRAW 1,12, J2eTOMNe,Ne 

RETURN 

:GRAPHIC 1,1 

Xe=100 :REMN”X COORD. FOR LOWER LH 


CORNER” 


114%0e 


Ye=100 :REM”Y COORD. FOR LOWER LH 


CORNER” 


11403 
11404 
11405 
11406 
11407 


READY. 


Ae=S0O :REM”WIDTH OF PYRAMID” 
Be=60 :REMN”DEPTH OF PYRAMID” 
Ce=B8O :REM”HEIGHT OF PYRAMID” 
GOSUB 11382 


GOTO 11407 
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11380 
11381 
1138e 
11383 
113684 
11385 
11386 
11387 
11388 
11383 
113390 
11391 
11332 


REM”OPYRAMID C-64 
GOTO 11400 

REM” SUBROUT .F .PYR” 
De=INTCSQRCBe*2/8)) 
U2=INTCDe/e2) 
Ve=INTCA2/2) 
Ee=xe-Fe=yYe 
Ge=X2e+Ae: He=Ye 
le=X2e+Ae+De: Je=Ye-De 
Ke=XetDe:Le=Ye-De 
Me=Xe+Ve+Ue: Ne=Ye-Ue-Ce 
:LINE Ee,Fe,Ge,He,1 


:LINE G2@,He,12,J2@,1:I1F Ye+Ce>Ye TH 


EN 113395 


11393 : 


11394 


11395 : 
11396 : 
11397 : 


11399 
11400 
114%01 


le, Je.Ke; Less 
Ke ,Le,E2,Fe,1 
E2e,Fe,Me,Ne,1 
Ge, He,Me,Ne,1 
le, Je Me; Next 


HIRES 0,7 
:REM”X COORD. FOR LOWER LH 


CORNER” 


11402 


Ye2=100 :REM”Y COORD. FOR LOWER LH 


CORNER” 


11403 
11404 
11405 
11406 
11407 


READY. 


Ae=S0O :REM”’WIDTH OF PYRAMID” 
Be=60 :REM”’DEPTH OF PYRAMID” 
C2e=B0O :REM”HEIGHT OF PYRAMID” 
GOSUB 1136e 


GOTO 11407 
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11413 REM”OPRISMN C-128” 

1141% GOTO 11435 

11415 REMN”SUBROUT.F.PRISM” 

11416 D3S-INTCSORCB3%2/8)) 

11417 U3" INTCD3/2) 

11418 E3=X3:F3=Y3 

114193 G3=X3+A3:H3=Y3 

l1i4%eO 13-X3+A3+03: J3=Y3-D3 

1litel K3=X3+D3:L3=-Y3-D3 

litee O3=X3+U3+23:P3=Y3-U3-C3 

11%23 M3=X3+A3+U3+Z3 

lite’ N3=Y3-U3-C3 

lites :DRAW1,E3,F3TOG3,H3 

11%e6 :DRAW1,G3,H3TOI3,J3:IF Y3+C3>Y3 TH 
EN 11429 

lite7 : DRAW 1,13, J3TOK3,L3 

11428 ::DRAW 1,K3,L3TOE3,F3 

lites ::DRAW 1,E3,F3TO03,P3 

11431 ::DRAW 1,G63,H3TOMN3,N3 

11i%3e ::DRAW 1,13, J3TOMN3,N3 

11433 ::DRAW 1,03,P3TOMN3,N3 

11434 RETURN 

11435 :GRAPHIC 1,1 

11436 X3=SO :REN”X COORD. OF LOWER LH C 
ORNER” 

11437 Y3=100 :REM”Y COORD. OF LOWER LH C 
ORNER” 

11438 23=0 >REN”’ DISTORTION FACTOR” 
114393 AZ=100 :REM”WIDTH OF PRISM” 
11440 B3=60 :REMN”DEPTH OF PRISM” 
11441 C3=SO :REM”HEIGHT OF PRISM” 
114%4%e GOSUB 11415 

11443 GOTO 11443 


READY. 
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11413 REN”OPRISNM’ C-64 
11414% GOTO 11435 

11415 REMN”SUBROUT.F.PRISM” 
11416 D3-INTCSQRCB3%2/8)) 
11417 U3S=INTCD3/2) 

L118 ES"xX3:F3=Ya 

11419 G3=X3+A3:H3=Y3 

11%e0 13"X3+A3+D3: J3=Y3-D3 
Litel K3a=X3+03:L3s=Y3-D3 

litee O3"X3+U3+23: P3=Y3-U3-C3 
114e3 MN3"X3+A3+U3+2Z3 

11%2e4% N3-Y3-U3-C3 

1iteS <LINE E3,F3,63,H3,1 
1lite6 :LINE G3,H3,13,J3,1:IF Y3+C3>Y3 TH 


11427 :LINE 13,J3,K3,L3,1 

11428 :LINE K3,L3,E3,F3,1 

11429 :LINE E3,F3,03,P3,1 

11431 :LINE G3,H3,M3,N3,1 

11432 :LINE 13,J3,M3,N3,1 

11433 :LINE 03,P3,M3,N3,1 

11434 RETURN 

11435 HIRES 0,7 

11436 X3=S0O :REM”’X COORD. OF LOWER LH C 
ORNER” 

11437 Y3=100 :REM”Y COORD. OF LOWER LH C 
ORNER” 

11438 23-0 :REM”’DISTORTION FACTOR” 
11439 A3=100 :REM’WIDTH OF~PRISM” 

11440 B3=60 :REM’DEPTH OF PRISM” 

11441 C3=SO :REM”’HEIGHT OF PRISM” 

11442 GOSUB 11415 

11443 GOTO 11443 


READY. 
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11450 
11451 
Titse 
11453 
11454 
11955 
11456 
11457 
11458 
11459 
11460 
11461 
11462 
11463 
11464 
11465 
11466 
11467 
11468 
11469 
11470 
11471 


CAD for the C-128 and C-64 


RA SSS eS 


REM”OCYLINDER C-128” 

GOTO 11470 

REM”SUBROUT.F.CYL.” 
RY=INTCAY/2I 

S4=INTCRY/2) 

E4Y=X4-R4: F4=Y4 

GY=X4+R4: H4=Y4 

T4=X4+R4+24: J4-Y4-BY 
K4Y=X4-R4+24: LY=-Y4-BY 

O4%—X4: PY=Y4 

M4=X4+24: N4Y=Y4—-BY4 

IF Y4+BY4>Y4 THEN 11465 
:CIRCLE1 ,O4, PY, RY, S4 
:>CIRCLE1,MY,NY,RY4,S4,90,270,0,4 
GOTO 11467 
:CIRCLE1, 04, P4,R4,S¢,90,270,0,4 
:CIRCLE1,M4,N4,R4, SY 

>: DRAW, EY, F4TOK4, L4 

>: DRAW1,G4, H4TOIY, J4¥ 

RETURN 

:GRAPHIC 1,1 

X4=150 :REM”X COORD. OF CENTER LOw 


ER CIRCLE” 


1it7e 


Y4¥=155 :REM”’Y COORD. FOR CENTER LO 


WER CIRCLE” 


11473 
11474 
11475 
11476 
11477 


READY. 


Z24=0 :REMN”DISTORTION FACTOR” 
At=160 :REM”CYLINDER DIAMETER” 
BY=105 :REMN”CYLINDER HEIGHT” 
GOSUB 11452 


GOTO 11477 
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REM”OCYLINDER C-64 

GOTO 11470 

REM” SUBROUT.F.CYL.” 
R4=-INTCAY/2) 

S4=INTCRY/2) 

EY=X4-R4¢: F4=Y4 

G4t=X4+R4: H4=Y4 

T4=X4+R4+24: J4=Y4-BY4 
K4=X4—-R4+24: LY=Y4-BY 

O%=xX4: Poy 
MYt=X4+24 : N4Y=Y4—-BY 

IF Y4+B4>Y4 THEN 11465 
:CIRCLE O4,P4,RY,S4,1 

:ARC M4,N%,90,270,4,R4,S4,1 
GOTO 11467 | 
:ARC O4,P4%,90,270,4,R%,S4,1 
:CIRCLE M4,N4,R4%,54,1 

:LINE EY,F4,K9,LS,1 

>LINE G4Y,H4,14,J54,1 


RETURN 


HIRES 0,7 


X4=150 


ER CIRCLE” 


11472 


Y%=155 


WER CIRCLE” 


Li%73 
11474 
11475 
11%76 
11477 


READY. 


Z24=0 
A%t=160 
B4Y=105 


:REM”X COORD. OF CENTER LOW 
>REM”Y COORD. FOR CENTER LO 
:REM”’DISTORTION FACTOR” 


>REM”’CYLINDER DIANETER” 
>REMN”CYLINDER HEIGHT” 


GOSUB 11452 
GOTO 11477 
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114680 REN”OCONE C-128” 

11481 GOTO 11439e 

1148e REM”’SUBROUT.F .CONE” 

114683 SS=INTCRS/23) 

114984 ES=X5-RS:FS=-Y5 

11485 GS=XS+RS: HS=YS 

11486 15=X5+25: JS=YS-BS 

11487 KS=XS:LS*YS: IF YS+BS>YS THEN 11489 
11488 :CIRCLE1,KS,L5,R5,55:GOTO 11490 
11489 :CIRCLE1,KS,L5,R5,55,90,270,0,4% 
11490 : DRAW ,GS,HSTOIS, JS: DRAW] ,ES,FSTO!I 
SW b= 

114951 RETURN 

1149e@ :GRAPHIC 1,1 

11493 X5=100 :REM”X COORD. FOR CENTER OF 
CONE” 

11494 YS=100 :REMN”Y COORD. FOR CENTER OF 
CONE” 

11495 25=0 :REN”’ DISTORTION FACTOR” 
11496 RS=S0O :REMN”RADIUS OF BASE” 

11457 BS=8O :REM”HEIGHT OF CONE” 

11438 GOSUB 114682 

1124359 GOTO 11439 


READY. 
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eS 


11480 REMN”OKONE C-644 

11481 GOTO 114%9e 

1148e REM”SUBROUT.F .CONE” 

11483 SS=INTCRS/c) 

11484 ES=X5-RS:F5=Y5 

1148S GS=XS+RS:HS=Y5 

11486 15=X5+Z25: JS=Y5S-B5 

11487 KS=X5:LS=YS: IF YS+BS>YS THEN 11489 
11488 :CIRCLE KS,L5,R5,S5,1:GOTO 11450 
11489 :ARC KS,LS,90,270,4%,R5,55,1 

11490 :LINE GS,HS5,15,J5,1:LINE ES,F5,15, 

JS;4 

11491 RETURN 

11492 HIRES O,?7 

11493 XS=100 :REM”’X COORD. FOR CENTER OF 
CONE” 

11494 YS=100 :REM”’Y COORD. FOR CENTER OF 
CONE” 

11495 25=0 :REM”DISTORTION FACTOR” 
11496 RS=SO :REM”RADIUS OF BASE” 

11497 BS=BO :REM”HEIGHT OF CONE” 

11498 GOSUB 11462 

11499 GOTO 1149393 


READY. 


195 


Abacus Software 


ee 


11508 
11509 
11510 
11511 
11512 
11513 
11514 
1181s 
11516 
11517 
11518 
11519 
11520 
Loe 
115ee 
11523 
11524 
LiSes 
11526 
11527 
11528 
11529 
LOWER 
11530 
LOWER 
11531 
LiSs3c 


LiS33 


11534 
NE 33 

11535 
11536 


READY. 


CAD for the C-128 and C-64 


REM”OTRUNCATED CONE C-128” 

GOTO 11528 

REM” SUBROUT.F.OTR.CONE” 
S6=INTCR6/2) 

W6=INTCVG6/2) 

E6=X6-R6:F6=Y6 

G6=X6+R6: H6=Y6 

I6=X6+VU6+26: J6=Y6-B6 
K6=X6-VU6+26:L6=Y6-B6 

O6>X6+26: P6=Y6-B6 

M6B=X6:N6=Y6 

IF Y6+B6> Y6THEN11523 
:CIRCLE1,M6,N6,R6,S6 
:CTIRCLE1,06,P6,V6,W6,90,270,0,4 
GOTO 11525 
:CIRCLE1,M6,N6,R6,S6,90,270,0,4 
:CIRCLE1,06,P6,V6,wW6 

: : DRAW] ,E6,FGETOK6,L6 

: : DRAW1,G6,H6ETOIG6G, J6 

RETURN 

:GRAPHIC 1,1 

X6=100 :REM”X COORD. OF CENTER OF 
CIRCLE” 


Y6=100 :REM”Y COORD. OF CENTER OF 
CIRCLE” 

26=0 :REM”DISTORTION FACTOR” 
R6=SO :REM”RADIUS OF LOWER CIRCLE 
V6=ecO0 :REM”RADIUS OF UPPER CIRCLE 
B6B=680 :REM”HEIGHT OF TRUNCATED CO 
GOSUB 11510 

GOTO 11536 
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11508 REM”OTRUNCATED CONE C-64 

11509 GOTO 115e8 

11510 REM”SUBROUT.F.TR.CONE” 

11511 S6=INTCRE/2) 

11512 W6=INTCVUG/23) 

11513 E6G=X6-R6:FG67Y6 

11514 G6=X6+R6:H6=Y6 

11515 I6=X6+V6+Z6: J6“Y6-B6 

11516 K6=X6-V6+Z6: L6=Y6~-B6 

11517 O6=X6+2Z6: P6=Y6-B6 

11518 M6=X6:N6=Y6 

11519 IF Y6+B6>Y6 THEN 115e3 

11520 :CIRCLE M6,N6,R6,56,1 

11521 :ARC 06,P6,90,270,4,V6,W6,1 

11522 GOTO 115e5 

11523 :ARC M6,N6,90,270,4,R6,56,1 

115e4 :CIRCLE 06,P6,V6,W6,1 

11525 :LINE E6,F6,K6,L6,1 

11526 :LINE G6,H6,16,J6,1 

11527 RETURN 

11528 :HIRES O,7 

11529 X6=150 :REM”’X COORD. FOR CENTER OF 
LOWER CIRCLE” 

11530 Y6=1S0 :REM”Y COORD. FOR CENTER OF 
LOWER CIRCLE” 

11531 26=0 :REM”DISTORTION FACTOR” 
11532 R6=6O :REM”RADIUS OF LOWER CIRCLE 


11533 U6=40 :REM”RADIUS OF UPPER CIRCLE 
11534 B6=120 :REM”HEIGHT OF CONE” 

11535 GOSUB 11510 

11536 GOTO 11536 


READY. 
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11540 
11541 
115%e2 
11543 
Li Sta 
11545 
11546 
11547 


CAD for the C-128 and C-64 


REM”OSPHERE C-128” 

GOTO 11549 

REM”SUBROUT.F.SPH.” 
B7=INTCA7/2) 

C7=INTCA7/4) 
:CIRCLE1,X7,Y7,B7,B7 
:CIRCLE1,X7,Y7,B7,C7,90,270,0,4 
:CIRCLE1,X7,Y7,C7,B7,0,180,0,4 
RETURN 

:GRAPHIC 1,1 

X7=100 :REM”X COORD. OF SPHERE CEN 


Y¥7=100 :REM”Y COORD. OF SPHERE CEN 
A7=100 :REM”DIAMETER OF THE SPHERE 


GOSUB 11542 
GOTO 115S4 


REMN”OSPHERE c-54 

GOTO 1154s 
REM”SUBROUT.F.SPH. ” 
B7=INTCA7/2) 

C7=INTCA7/4) 

:CIRCLE X7,Y7,B7,B7,1 

:ARC X7,Y7,90,270,4,B7,C7,1 
:ARC X7,Y7,0,180,4,C7,B7,1 
RETURN 

HIRES 0,7 

X7=100 :REM”X COORD. OF SPHERE CEN 


¥7=100 :REM”Y COORD. OF SPHERE CEN 
A7=100 :REN”DIAMETER OF THE SPHERE 


GOSUB 11542 
GOTO 11554 


198 


Abacus Software 


11480 
114%81 
11462 
11483 
11484 
11485 
11486 
11487 
11488 
11489 
114390 
5,J5 

11491 
1154%e 
11543 
11544 
11545 
11546 
1157 
11548 
11550 
11551 
1iS5c 
11553 
11554 
11555 
11556 
11557 
11558 
115593 
11560 
11561 
1156e 
11563 
11564 
11565 
11566 
11567 
11568 
11570 


CAD for the C-128 and C-64 


REN”’FIGURE %3 C-128” 

GOTO 11550 

REN” SUBROUT .F .CONE” 

SS=INTCRS/23) 

ES=X5-RS: FS-YS 

GS=XS+RS:HS-YS 

15=X5+2S: JS=YS-BS 

KS=XS:LS#YS: IF YS+BS>YS THEN 1148S 


:CIRCLE1,KS,L5,R5,S5:GOTO 11490 
:CIRCLE1,KS,LS,RS,S5,90,270,0,4 
: DRAW1 ,GS,HSTOIS, JS: DRAW1, ES, FSTO!I 
RETURN 

REM” SUBROUT.F.SPH.” 
B7=INTCA7/2) 

C7=INTCA7/4) 

: CIRCLE1, X7, Y7, B7, B7 

: CIRCLE1, X7, Y7, B7,C7,90,270,0,4 
: CIRCLE1,X7,Y7,C7,B7,0,180,0,4 
RETURN 

REM” OMIX” 

GRAPHIC1,1 

X5=110: YS=120 


RS=40: BS=60 

GOSUB 11482 

XS=110: YS=120 

RS=40: BS=-80 

GOSUB 114%6e 

X7=110: Y7720:A7=40 

GOSUB 115%e 

X5=250: YS=120 

R5=-40: BS=-80 

GOSUB 1146ce 

CIRCLE 0O,XS,Y5,RS,S5,270,90,0,1 
X5=250: YS=120 

RS=40: BS=80 

GOSUB 114%Be 

X7=250: Y7=20:A7=40 

GOSUB 1154e 

SYS3072: REM SEE APPENDIX B FOR 


SCREEN DUMP INSTRUCTIONS 


READY 
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11480 
11481 
11462 
11483 
11484 
11485 
11466 
11487 
11488 
1148S 
114390 
JS5,1 

11491 
11542 
11543 
115%4 
11545 
11546 
11547 
11546 
11550 
11551 
11552 
11553 
11554 
11555 
11556 
11557 
11558 
115893 
11560 
11561 
11562 
11563 
11564 
1156S 
11566 
11567 
11568 
11570 
11571 


READY. 


CAD for the C-128 and C-64 


REM”’DIAGRAM 43 C-64 ” 
CALL ONIX 

PROC OCONE 

SSINTCRS/2) 

ES=X5-R5: FS5=YS 
GS=XS+RS:HS=YS 
IS=X5+2S: JS=YS-BS 


KS=XS:L5=“Y5: IF YS+BS>YS THEN 11489 
:CIRCLE KS5S,L5,R5,S5,1:GOTO 11480 
:ARC KS,LS,90,270,4,R5,S5,1 

:LINE GS,HS,15,J5,1:LINE ES,FS,I5, 
END PROC 

PROC OSPHERE 

B7=INTCA7/2) 

C7=INTCA7/43 

:CIRCLE X7,Y7,B7,B7,1 

:ARC X7,Y7,90,270,4,B7,C7,1 

:ARC X7,Y7,0,180,4,C7,B7,1 

END PROC 

PROC OMIX 

HIRES 0,7 

X5=110: YS=120 


RS=40: BS=80 
EXEC OCONE 

X5=110: YS=120 

R5=40: BS=-B80 

EXEC OCONE 
X7™110:Y7=20:A7=40 

EXEC OSPHERE 

X5=250: YS=120 

R5=40: BS=-80 

EXEC OCONE 

:ARC X5,YS,270,90,1,R5,S5,0 
X5=250: YS=120 

RS=40: BS=80 

EXEC OCONE 

X7=250: Y7=20:A7=40 

EXEC OSPHERE 

OPEN1, 4 

COPY 
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B4.3 VOLUME MODELS 


In volume models, concealed edges are drawn as dashed lines. And so, 
the work involved is further increased by comparison with a surface 
model. 


The work involved with such 3D models (that is what they are called) is 
so great that even very large firms consider carefully whether they are 
going to undertake this work. Often, they make do with 2 1/2 D models. 
These are models which act as if they were 3D models; they involve less 
work, but they are also more limited. 


For the sake of completeness, I must add that such 3D models must also, 
to comply with the requirements of professionals, automatically produce a 
volume model from the usual three-dimemsional-view of a technical 
drawing. Only prosperous firms with a desire for perfection can really 
afford the software and hardware. 


We do not have this desire - or we are quick to repress it. We put together 
our volume models by hand. 


Figure 44 shows an example of this. The program used is called MODEL. 
As you can see, a surface macro (OPARALLELEPIPED) has been mixed 
with a single-element program (DASHED LINE). 


We can see something else in figure 44 as well: once again some slight 
corrections have to be made, for example using the PEN program. As the 
computer calculates the coordinates for oblique edges as integers (because 
picture dots cannot be subdivided), rounding errors also occur here. This 
leads to slight discrepancies between the coordinates of macro and 
individual programs. 


201 


ABACUS Software CAD for the C-128 and C-64 





FIGURE 44: VOLUME MODEL FROM MACROS AND 
BASIC PROGRAMS UNCORRECTED 
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10100 
10101 
1010e 
10103 
10104 
10105 
10106 
10107 
10108 
10109 
10110 
10111 
1011¢ 
10113 
10114 
10115 
10116 
10117 
10116 
10119 
1012e0 
10121 
101ee2 
10123 
101e4% 
101e5 
10126 
10128 
101ie3 
10130 
10131 
10132 
10133 
10134 
10135 
10136 
10137 
101368 
101393 
10140 
10141 
1014e 
10143 
101%4 
10145 


CAD for the C-128 and C-64 


REM ”*MODEL C-12eB” 

GOTO11370 

REM *"SUBROUT.F.DASHED LINE” 
CE=ABSCCC-CAJ 

CF=-ABSCCB-CD3) 

IF CA=CC THEN 10137 

IF CB=CD THEN 10158 
CG=INTCSOR(CC16*CE%2)/CCF*2+CE%2I) 9) 
CH= INTCCCG*CFI/CCEJ 3) 
CI-INTCCE/CG) 

CJ=-1 

IF CA<CC AND CD<CB THEN 10115 
IF CA<CC AND CB<CD THEN 10117 
IF CC<CA AND CD<CB THEN 10120 
IF CC<CA AND CB<CD THEN 10123 
CG=-CG 

GOTO 101e5 

CG=-CG 

CH=-CH 

GOTO 10125 

CG=CG 

CH=CH 

GOTO 101e5 

CH=—-CH 

GOTO 101e5 

CK=CA+CG 

CL=CB+CH 

FOR CM=1 TO Cl! 

GOSUB 10178 

CK=CK-CG 

CL=CL-CH 

CN=CK-Ce*CG) 

CO=CL-Ce*CH) 

:DRAW CP,CK,CL TO CN,CO 

NEXT CM 

GOTO 10186 

REM "VERTICAL LINES” 
CI=INTCCF/4) 

CI=-1 

Chea 

IF CB<CD THEN 10143 

IF CD<CB THEN 10145 

CH=-CH 

GOTO 1017 

CH=CH 
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10146 
10147 
10149 
10150 
10151 
1015e 
10153 
10154 
10155 
10156 
10157 
10158 
10159 
10160 
10161 
10162 
10163 
10164 
10165 
10166 
10168 
10169 
10170 
10171 
10172 
10173 
10174 
10175 
10176 
10177 
10178 
10179 
10180 
10181 
101862 
10183 
10184 
10185 
10186 
11352 
ti1353 
17354 
11355 
11356 
11357 
11358 
11359 
11360 


CAD for the C-128 and C-64 


GOTO 10147 
CL=CB+CH 
FOR CM=1 TO CI 
GOSUB 10178 
CK=CA 
CL=CL=CH 
CN=CA 
CO=CL-C2*CH) 
: DRAW CP,CK,CL TO CN,CO 
NEXT CM 
GOTO 10186 
REM "HORIZONTAL LINES” 
CI=INTCCE/4) 
CJ=-1 
CG=4 
IF CA<CC THEN 10164 
IF CC<CA THEN 10166 
CG=-CG 
GOTO 10168 
CG=CG 
CK=CA+CG 
FOR CM=1 TO CI 
GOSUB 10178 
CK=CK-CG 
CL=CB 
CN=CK-C2*CG) 
CO=CB 
:DRAW CP,CK,CL TO CN,CO 
NEXT CM 
GOTO 10186 
REM ”LOOPS” 
CJ=CJ*€-1) 
IF CJ=1 THEN 10182 
IF CJ=-1 THEN 10184 
EPS 
GOTO 10185 
CP=0 
RETURN 
RETURN 
REM” SUBROUT.F .PARALLELEP., ” 
D1=INTCSQRCB1%2/8)) 
Fi=X1:F1=Y1+C1 
G1=X1+A1:H1=Y1+C1 
T1=X1+A1+D1:J1=Y1+C1-p1 
K1=X1+D1:L1=Y14+C1-p1 
M1=X1+A1:N1=Y1 
O1=X1:P1=y1 
Q1=X1+A1+D1:R1=Y1-D1 
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11361 
1136e 
11363 
Si 512i 
11365 
11366 
11367 
11368 
11370 
11371 
1137e 
11373 
11374 
11375 
11376 
11377 
11378 
11379 
11380 
11381 


READY. 


CAD for the C-128 and C-64 


S1=X1+D1:T1=y1i-D1 
::BOX1,X1,Y1,A1+X1,C1i+Y1 
:: DRAW, 11, JiToOO1, Ri: DRAW1 ,Q1,R1TO 


: :DRAW1,G1,H1TOI1,J1 

: : DRAW1,M1,N1TOQ1,R1 

:: DRAW1,01,P1TOS1,T1 
RETURN 
REM UNIX 

:GRAPHIC 1,1 
X1=30: Y1=80 
A1=190:B1=200:C1=-110 
GOSUB1135e 
CA=30:CB=190:CC=100:CD=1c0 
GOSUB1010e 
CA=100: CB=10: CC=100: CD=1c0 
GOSUB1010e 
CA=100:CB=120:CC=290:CD=1c0 
GOSUB10102 
GOTO 11381 
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10100 
10101 
10102 
10103 
10104 
10105 
10106 
10107 
10108 
10109 
10110 
10111 
10112 
10113 
10114 
10115 
10116 
10117 
10118 
10119 
10120 
10121 
10122 
101e3 
101ic4% 
101e5 
10126 
10127 
10128 
101e9 
10130 
10131 
10132 
10133 
10134 
10135 
10136 
10137 
10138 
10139 
10140 
10141 
10142 
10143 
10144 
10145 


CAD for the C-128 and C-64 


REMN”MODEL C-64 

CALL UMIX 

PROC DASHED 

CE=ABSCCC-CA) 

CF=ABSCCB-CD) 

IF CA=CC THEN 10137 

IF CB=CD THEN 10158 
CG=INTCSORC C16*CE*%2)/CCF*%2+CE%23)) 
CH= INTCCCG*CFI/CCEJ3 
CI-INTCCE/CG) 

CIAs1 

IF CA<CC AND CD<CB THEN 10115 
IF CA<CC AND CB<CD THEN 10117 -° 
IF CC<CA AND CD<CB THEN 10120 
IF CC<CA AND CB<CD THEN 10123 
CG=-CG 

GOTO 10125 

CG=-CG 

CH=—-CH 

GOTO 101e5 

CG=CG 
CH=CH 

GOTO 10125 

CH=—-CH 

GOTO 10125 

CK=CA+CG 

CL=CB+CH 

REM” HIRES” 

FOR CN=1 TO CI 

GOSUB 10178 

CK=CK-CG 

CL=-CL-CH 

CN=CK-C2*CG) 

CO=CL~-C2*CH) 

:LINE CK,CL,CN,CO,CP 

NEXT CM 

GOTO 10186 

REM 

CI=INTCCF/4) 

CJ=-1 

CH=4 

IF CB<CD THEN 10143 

IF CD<CB THEN 10145 

CH=-CH 

GOTO 10147 

CH=CH 
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10146 GOTO 101%7 

10147 CL=CB+CH 

10148 REMN”HIRES” 

101493 FOR CM=1 TO CI 
101S0 GOSUB 10176 

10151 CK=CA 

10152 CL=CL-CH 

10153 CN=CA 

10154% CO=CL-Ce*CH) 

10155 :LINE CK,CL,CN,CO,CP 
10156 NEXT CM 

10157 GOTO 10186 

10158 REM 

10159 CI=INTCCE/4) 

10160 CJ=-1 

10161 CG=4 

1016e IF CA<CC THEN 10164 
10163 IF CC<CA THEN 10166 
10164 CG=-CG 

1016S GOTO 10167 

10166 CG=CG 

10167 REN”HIRES” 

10168 CK=CA+CG 

10169 FOR CmM=1 TO CI 
10170 GOSUB 10178 

10171 CK=CK-CG 

10172 CL=CB 

10173 CN=CK-Ce*CG) 

10174% CO=CB 

1017S :LINE CK,CL,CN,CO,CP 
10176 NEXT CM 

10177 GOTO 10186 

10178 REM 

10179 CJ=CJ*C-1) 

10180 IF CJ=1 THEN 1018e 
10181 IF CJ=-1 THEN 10184 
1018e CP=1 

10183 GOTO 10185 

1018% CP=0 

10185 RETURN 

10186 END PROC 

11352 PROC OPARALLELPIPED 
11353 D1i=INTCSORCB1%e2/8)3 
11354% E1=X1:F1*Y1+C1 
11355 G1=X1+A1:H1=Y1+C1 
11356 11=X1+A1+D1:J1=Y1+C1-D1 
11357 K1=X1+D1:L1=Y1i+C1i-Dl1 
11358 M1=X1+A1:N1=Y1 
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O01=X1:P1=Y1 

Q1=X1+A1+01:R1=Y1-D1 
91=X1+D1:T1=Y1-D1 

SREC XL; Y1. ASCII 

:LINE 11,J1,01,R1,1:LINE Q1,R1,S1, 


:LINE G1,H1,11,J1,1 

:LINE M1,N1,Q1,R1,1 

sCINE G1, P1.51,71,1 

END PROC | 

PROC UNIX 

HIRES 0,7 

X1=30: Y1=680 

A1=-190: B1=200:C1=110 

EXEC OPARALLELPIPED 

CA=30 : CB=190: CC=100: CD=120 
EXEC DASHED 

CA=100: CB=10:CC=100:CD=120 
EXEC DASHED 

CA=100: CB=120:CC=2S0:CD=120 
EXEC DASHED 

GOTO 11381 
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B4.4 SUMMARY 


Macros are building blocks that are put together from basic elements and 
then, in turn, used for the purpose of assembling more complex 
drawings. Macros, and the figures composed from them, can take the 
form of "wire frame" models, surface models or volume models. 


In the case of "wire frame" models, all the edges of the figure are shown. 
Because of this, they can easily become difficult to understand. We can 
easily combine "wire frame" models without any need for subsequent 
corrections. 


Surface models display only their visible surfaces. Concealed edges are 
not shown. This is a clearer method of representation but it increases the 
work involved. If a set of automatic commands has not been built in, 
corrections will be required. 


In the case of volume models, concealed edges are shown as dashed 
lines. Even more work is involved. Even large firms have to consider 
whether or not they can afford a system that offers ideal volume models. 
Generally, someone with his head screwed on properly will realize that 
there is absolutely no need for such an ideal system. 
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BS OTHER THINGS TO DO WITH DRAWINGS 


With what we have learned up to now, we can do quite a lot. But we are 
not going to stop here; we are going to nose around a bit in the inner 
workings of CAD. 


In some cases, we shall be applying what we have learned in a particular 
way and, in others, we shall be finding out about new building blocks in 
our construction kit. 


All we can ever do is explain and illustrate the principles concerned. As 
for the possibilities that are opened up, you will have to take action for 
yourself. The simple little pictures that have been shown in connection 
with the different chapters are only the tip of the iceberg. 


B5.1 DUPLICATING 


Sometimes, we may want to repeat parts of a drawing at another point 
inside this drawing, i.e. duplicate them. Now, it is simple to duplicate 
those parts whose coordinates are known. All we need to do is to modify 
the starting coordinates accordingly. 


This is not what we shall be talking about here. What we want to do is to 
duplicate areas containing any given picture dots, even those that have 
occurred by chance. 


The DUPLI program duplicates these areas or fields for us. Along the x 
axis, as often as we want and at intervals we can choose. Along the y 
axis, as often as we want and at intervals we can choose. We simply have 
to make sure that our duplicated fields do not go off the screen. 


Using LA, you enter the x coordinate for the bottom left-hand corner of 
the field to be duplicated. 


Using LB, you enter the y coordinate for the bottom left-hand corner of 
the field to be duplicated. 


LC defines the width of the field. LD is used to define its height. 

Using LE, you enter the x coordinate for the top left-hand corner of the 
first duplicated field. That is to say the point at which the first duplicate is 
to appear. 


Use LF to define the corresponding y coordinate. 
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You use LR to select the intervals of the top left-hand corners between 
repetitions of the duplicates in x direction. 


You use LS to do the same for the y direction. 


These variables - LR and LS - thus determine the intervals between the 
duplicated fields if more than one duplicate is wanted. 


LT specifies the number of repetitions required in the x direction. 
LU specifies the number of repetitions required in the y direction. 
Examples of duplicating with DUPLI are given in figures 45 and 46. 
Just one more important point: 


Duplicating takes some time. The computer has to scan the area for 
duplication dot by dot for picture dots and take note of them. The larger 
the area you select for duplication, the longer the process will take, and 
the more memory space will be required. 


The memory space may not prove sufficient. In this case, you will either 
have to reduce the area or dispense with automatic dimensioning (line 
12004 or 12003). 


This works because the computer only takes note of set dots, ignoring 
empty spaces. However, automatic dimensioning reserves as much 
memory space as there are picture dots available for the area, whether they 
are set dots or not. 


If you cannot manage with the available memory space, you have to 
estimate how many picture dots are set and dimension accordingly at line 
12004 by hand. 


This basic idea is applicable to all programs in which a field or area is 
being processed. That is to say, the following programs: 


DUPLI, FIELD MIRROR, FIGURE MIRROR , FIGURE ROTATE, 
HIRES-STORE & HIRES-READ 


Perhaps you will bear these points in mind when we come to these 
programs. 
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FIGURE 45: DUPLICATING AN AREA ON THE SCREEN 
ORIGINAL TOP LEFT 
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FIGURE 46: DUPLICATING ANY PARTS OF A DRAWING 
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12000 REN”DUPLI C-128” 

12001 GOTO 12034 

12002 REN”UNTERPRG.F.OUP” 

12003 LG=LC*LD 

12004 DIN LHCLGI:DIN LNCLG) 

1200S LO=0:LP=0:LQ=0:L2=0:LK=0 
12006 LY=LB 

12007 FOR LI=1 TO LD 

12008 LX=LA 

12003 LY=LY+1 

12010 FOR LJ=1 TO LC 

12011 LX=LX+1 

1eO0le LOCATELX,LY:LL=RDOTC2) 
1e013 IF LL=1 THEN 12015 

12014% GOTO 12018 

12015 LK=LK+1 

12016 LHCLKI=LX 

1e017 LMCLKI=LY 

12018 NEXT LJ 

120139 NEXT LI 

1e02e0 FOR LN=1 TO LK 

1e0e1 LU=LHCLNIJ+CLE-LAJ+LO 

1e0ee LW=LMNCLNIJ+CLF-LBIJ+LP 

120e3 DRAWI,LYU,LW 

120e4% NEXT LN 

1e0eS LQ=LQ+1 

120e6 IF LQ>LT THEN 12029 

120e7 LO=LO+LR 

1e0e8 GOTO 12020 

1e0eS L2=L2+1 

1e030 IF L2>LU THEN 12033 

12031 LP=LP+LS 

1e03e2 GOTO 12020 

1e033 RETURN 

12034 GRAPHIC1,1 

12035 LA=55 :REN”X-KOORD.OF UPPER LEFT 
OF FIELD” 

12036 LB=60 :REN”Y-KOORD.OF UPPER LEFT 
OF FIELD” 

12037 LC=e0 :REMN”’WIDTH OF FIELD” 
1°038 LDO=5S5S :REM”HEIGHT OF FIELD” 
1°039 LE=210 :REM”NEW X—-KOORD.” 
1e04tO LF=eS :REM”NEW Y-KOORD.” 
12041 LR=0 >REM”OFFSET OF COPY IN X DI 
RECTION” 
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LS=0 


RECTION” 


12043 


CT ION” 


120%4 


CTION” 


12045 
12046 
12047 
1204%8 
12043 
12050 
12051 
12052 
12053 
1e0S4 
12055 
12056 
12057 
12058 
12059 
12060 
12061 
12062 
12063 


READY. 


LT=0 


LU=0 
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>REM”OFFSET OF COPY IN Y DI 
>REM”NO OF COPIES IN X DIRE 


>REM”’NO OF COPIES IN Y DIRE 


: BOX1 ,30,25,100,155 

: DRAW] , 30,155T0100,e25 
: DRAW1 ,30,eSTO0100,155 
: DRAW1 ,65,2ST065,155 

: CHAR1 ,6,10, ORIGINAL” 
GOSUB 12002 


CLR 

LA=28 
LB=6e 
LE=75 
LD=15 


LE=1eS 


LF =65 
LR=0 
LS=35 
LT=0 
LU=e2 


GOSUB 12002 
GOTO 12063 
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12000 REM”’DUPLI C-64 

12001 GOTO 12034 

12002 REM”UNTERPRG.F.DUP” 

12003 LG=LC*LD 

12004 DIM LHCLG):DIM LMCLG) 

12005 LO=0:LP=0:L0=0:L2=0:LK=0 
12006 LY=LB 

12007 FOR LI=1 TO LD 

12008 LX=LA 

12009 LY=LY+1 

12010 FOR LJ=1 TO LC 

12011 LX=LX+1 

12012 LL=TESTCLX,LY] 

12013 IF LL=1 THEN 12015 

12014 GOTO 12018 

12015 LK=LK+1 

12016 LHCLK]=LX 

12017 LMCLKI=LY 

12018 NEXT LJ 

12019 NEXT LI 

12020 FOR LN=1 TO LK: 

12021 LU=LHCLNJ+CLE-LAIJ+LO 

12022 LW=LMCLNJ+CLF-LBJ+LP 

12023 :PLOT LU,LW,1 

12024 NEXT LN 

12025 LO=LO+1 

12026 IF LQ>LT THEN 12029 

12027 LO=LO+LR 

12028 GOTO 12020 

12029 LZ=L2+1 

12030 IF LZ>LU THEN 12033 

12031 LP=LP+LS 

12032 GOTO 12020 

12033 RETURN 

12034 HIRES 0,7 

12035 LA=SS :REM”’X-KOORD.OF UPPER LEFT 
OF FIELD” 

12035 LB=60 :REM”Y-KOORD.OF UPPER LEFT 
OF FIELD” 

12037 LC=20 :REM”"WIDTH OF FIELD” 
12038 LD=SS :REM”’HEIGHT OF FIELD” 
12039 LE=210 :REM”NEW X-KOORD.” 
12040 LF=2S :REM”NEW Y-KOORD.” 
12041 LR=O  :REM”OFFSET OF COPY IN X DI 
RECTION” 

12042 LS=O  :REM”’OFFSET OF COPY IN Y DI 
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RECTION” 

12043 LT=0 :REM”’NO OF COPIES IN X DIRE 
CTION” 

12e04%4 LU=0 >REM”’NO OF COPIES IN Y DIRE 
CTION” 

1e04S :REC 30,25,70,130,1 

1e04G6 :LINE 30,155,100,25,1 

1e04%7 :LINE 30,25,100,155,1 

1eO048 :LINE 65,25,65,155,1 

1ec04S : TEXT 50,80, "ORIGINAL”,1,1,8 
12050 GOSUB 12002 

12051 CLR 

12052 LA=e8 

12053 LB=8e 

1e0S4% LC=75 

12055 LD=15 

ic0S& LE-1eS 

12057 LF=-65 

12058 LR=0 

12053 LS=35 

12060 LT=0 

12061 LU=2 

1e06e GOSUB 12002 

12063 GOTO 12063 


READY. 
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B5.2.1 MIRROR IMAGES OF FIGURES 


The FIGURE MIRROR program gives mirror images of figures whose 
coordinates are known to the computer. Use MW to enter the angle of the 
mirror image axis. This angle is entered in degrees from 0 to 360, in the 
mathematical direction, i.e. the angles run leftwards between the y and x 
axes, with the positive x axis representing an angle of 0 (360) degrees and 
the positive y axis an angle of 90 degrees, while the negative x axis 
represents 180 degrees and the negative y axis 270 degrees. 


Use ME to enter the number of DATA lines. You can use these DATA 
lines to enter the figure to be mirrored. You can enter any rectilinear 
figures; the data line must be constructed as indicated by comment line 
12116. The values are always arranged in pairs: the x and y coordinates 
of the first dot (identified by index 1) and the x and y coordinates of the 
second dot, which is connected with the first dot by a line. In this way, 
you can easily extend your figure by adding further DATA lines. ME is 
then used to enter the total number of DATA lines. 


Use MS to enter the apex in the x direction of the mirror figure axis. Use 
MT to enter the apex in the y direction of the muror figure axis. You 
determine where your figure is to be mirrored with the murror angle and 
the apex of this angle. Here, you must take particular care to make sure 
that you do not go off the screen. This can require some thought because 
the mirroring of our thinking processes causes difficulties anyway. 
However, with a little practice, you will soon become a master at "doing it 
all with mirrors”. 


Figures 47 and 48 show examples of mirror images obtained using 
FIGURE MIRROR. 
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FIGURE 47; MIRROR IMAGES ABOUT DIFFERENT AXES 
OF SYMMETRY; THE BLACK TRIANGLE IS’ THE 
ORIGINAL. 


FIGURE 48: FIGURE PRODUCED BY MIRROR IMAGES 
THE BLACK FIGURE IS THE ORIGINAL 
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REMN”FIGURE MIRROR C-12B” 
GOTO 12111 

REM” SUBROUT.F.FIGU” 

MJ=0 .01745*MwW 

FOR MN=1 TO ME 

READ MF,MNH,MI,MK 
MA=MF-MS 

MB=NT-MH 

MC=MI-MS 

MD=MNT-MK 

MU=INTCMA*COSC C2E*MJIJI+MNB*SINC Ce*nJd 


MW=INTC+MA*SINC C2*NJIII-NB*COSCCe*M 
MX=INTCMC*COSC C2E*NJIII+MD*SINC C2*MNI 
MY=INTC+MC*SINC CE*NJII-ND*COSCCe*M 


ML=MS+MvU 

MM=MT—-MW 

MO=MS+MxX 

MP=MNT-MY 

DRAW1 ,MF,MHTOMI ,MK 
DRAW1 ,ML,MNTOMO, MP 
NEXT MN 

RESTORE 

RETURN 

GRAPHIC 1,1 
MW=0:REM”ANGLE OF MIRROR IMAGE AXI 


ME=3 :REM”NUMBER OF DATA LINES” 
MS=100:REMN”X-COORD. OF APEX OF MIR 


ROR IMAGE AXIS” 


12115 


MT=120:REM”Y-COORD. OF APEX OF MIR 


ROR IMAGE AXIS” 


12116 
12117 
12116 
12119 
1e1ico 
12121 


READY. 


REM”DATA X1,Y1,Xe, Ye” 
DATA 120,110,160,110 
DATA 160,110,160,90 
DATA 160,90,120,110 
GOSUB 12082 

GOTO lelel 
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REM”FIGURE MIRROR 
GOTO 12111 

REM” SUBROUT .F .FIGU” 
MJ=0.01745*Mw 

FOR MN=1 TO ME 

READ MF,MH,MI,MK 
MA=MF-MS 

MB=MT-MH 

MC=MI-MS 

MD=MT-MK 
MU=INTCMA*COSC C2*MJII+MB*SINC C2*MJ 


C-64 


MW=INTC+MA*SINC C2*NJII-NB*COSCCe*M 
MX=INTCNC*COSC Ce*NJII+ND*SINC Ce*NJ 
MY=INTC+NC*SINC Ce*NJII-MD*COSCCe*n 


ML=MNS+MV 

MM=MT—-MwW 

MO=MS+Mx 

MP=MT-MyY 

>LINE MF ,MH,MI,MK,1 
>LINE ML,MNN,MO,MP,1 
NEXT MN 

RESTORE 

RETURN 

HIRES 0,7 

MW=-0O :REMN”ANGLE OF MIRROR IMAGE A 


ME=3 :REN”NUNBER OF DATA LINES” 
MS5=100: REM”X-COORD. OF APEX OF MIR 


ROR IMAGE AXIS” 


121is 


MT=120:REN”Y-COORD. OF APEX OF MIR 


ROR IMAGE AXIS” 


12116 
12117 
12118 
12113 
12120 
12121 


READY. 


REM”’DATA X1,Y1,Xe, Ye” 
DATA 120,110,160,110 
DATA 160,110,160,390 
DATA 160,90,120,110 
GOSUB 120862 

GOTO 12121 
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B5.2.2 MIRROR IMAGES OF FIELDS 
The FIELD MIRROR program will produce areas or fields in which any 
picture dots may be contained. 


Use NA to enter the x coordinate for the upper left-hand corner of the 
field to be mirrored. 


Use NB to enter the y coordinate for the upper left-hand corner of the 
field to be mirrored. 


Define the width of the field using NC. 
Define the height of the field using ND. 


NW is the angle formed by the mirror image axis and the x axis - once 
again in the mathematical direction of rotation. 


NO is used to enter the x coordinate for the apex of the mirror image axis. 
NP is used to enter the y coordinate for the apex of the mirror image axis. 
All the rest is as described in the preceding section. Think particularly 
carefully about the consequences of the values you choose for NC and 
Figures 49 and 50 show examples of mirror images obtained using 
FIELD MIRROR. 

It is worthwhile looking at these figures a bit more closely! Incidentally, 
for instance: the irregularities that you will certainly have noticed are 


ascribable to the need to calculate the picture dot coordinates with 
INTEGERS. That's digital, you can't do a thing about it! 
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REM”FIELDMIRROR C-128” 
GOTO 12164 

REM” SUBROUT .F.FIELDM” 
NK=0 

N2=0 .01745*NW 

NE=NC*ND 

DIN NHCNEIJ:DIMN NMCNEJ 
NY=NB 

FOR NI=1 TO ND 

NX=NA 

NY=NY+1 

FOR NJ=1 TO NC 
NX=NX+1 
LOCATENX , NY: NL=RDOTC2) 
IF NL=1 THEN 12146 
GOTO 12149 

NK=NK+1 

NHONKIJ=NX 

NMCNKI=NY 

NEXT NJ 

NEXT NI 

FOR NN=1 TO NK 
NF=NHCNNJ 

NG=NMCNNJ 

NU=NF-NO 

NW=NP-NG 
NX=INTCNU*COSC C2*NZI3+NW*SINC C2*NZ 


NY=INTCNU*SINC C2*NZ3I—-NW*COSC C2*NZ 


NQ=NO+NX 

NR=NP-NY 

: DRAW1 ,NQ,NR 

NEXT NN 

RETURN 

GRAPHIC1,1 

NA=130 :REMN”X-COORD.OF UPPER LEFT 


OF FIELD” 


12166 


NB=8S :REMN”Y-COORD.OF UPPER LEFT 


OF FIELD” 


12167 
12168 
12169 
E” 

12170 


NC=70 
ND=15 
NW=0 


>REMN”’WIDTH OF FIELD” 
>REM”’HEIGHT OF FIELD” 
>REM”’ANGLE OF MIRRORED IMAG 


NO=120 :REM”X-COORD.OF APEX OF MIR 
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ROR IMAGE AXIS” 

12171 NP=120 :REM”Y-COORD.OF APEX OF MIR 
ROR IMAGE AXIS” 

12172 CHAR1,17,11, “ORIGINAL” 

12173 GOSUB 12132 

12174% GOTO 1e174% 


READY. 
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12130 
12131 
12132 
12133 
12134 
12135 
12136 
1e137 
12138 
12139 
12140 
12141 
1elte 
12143 
12144 
12145 
12146 
12147 
12148 
12149 
12150 
12151 
1e215e 
12153 
12154 
Leiss 
12156 
J3J 

12157 
J)3 

12158 
12159 
12160 
12161 
12163 
12164 
12165 


CAD for the C-128 and C-64 


REMN”"FIELDMIRROR” 
GOTO 12164 ae 
REN” SUBROUT .F.FIELDM” 
NK=0 

N2Z2=0 .01745*NW 
NE=NC*ND 

DIM NHCNEJ:DIN NMNCNEJ 
NY=NB 

FOR NI=1 TO ND 

NX=NA 
NY=NY+1 
FOR NJ=1 
NX=NX+1 
NL=TESTCNX,NY3 

IF NL=1 THEN 12146 

GOTO 12149 

NK=NK+1 

NHONKIJ=NX 

NNCNKIJ=NY 

NEXT NJ 

NEXT NI 

FOR NN=1 TO NK 

NF=NHCNNJ 

NG=NMCNNJ 

NU=NF-NO 

NW=NP-NG 

NX=INTCNU*COSC C2*NZ33+NW*SINCC2*NZ 


C-64 


TO NC 


NY“ INTCNU*SINC C2*NZ) I-NW*COSC C2*NZ 


NQ=NO+NX 

NR=NP-NY 

:PLOT NOQ,NR,1 

NEXT NN 

RETURN 

HIRES 0,7 

NA=130 :REMN”X-COORD.OF UPPER LEFT 


OF FIELD” 


12166 NB=8S 


:REM”Y-COORD.OF UPPER LEFT 


OF FIELD” 


12167 NC=70 


>REMN”"WIDTH OF FIELD” 


12168 ND=1S :REM”HEIGHT OF FIELD” 
12169 NW=0 :REM”ANGLE OF MIRRORED IMAG 
E” 


12170 NO=120 


:REM”X-COORD.OF APEX OF MIR 


ROR IMAGE AXIS” 
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12171 NP=120 :REMN”Y-COORD.OF APEX OF NIR 
ROR IMAGE AXIS” 

12172 : TEXT 135,90, "ORIGINAL”,1,1,8 
12173 GOSUB 1e13e 

12174% GOTO 12174 


READY. 
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FIGURE 49: AREA OF SCREEN MIRRORED AROUND 
DIFFERENT AXES 
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FIGURE 50: FIRST ZOOMED, THEN MIRRORED 
ORIGINAL TOP LEFT 
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B5.3 ROTATION 

B5.3.1 ROTATION OF FIGURES 

Naturally, we can and want to do the same thing with rotation as with 
mirror images. You can see the difference clearly from figures 49 and 53. 
Use OW to enter the angle of rotation in the mathematical direction. 

Use OE to enter the number of DATA lines - described in Section 5.2.1. 
You use OS to define the x coordinate of the center of rotation. 

Use OT to define the y coordinate of the center of rotation. 


The DATA lines are constructed as described in Section 5.2.1. You use 
them to specify the figure that you wish to rotate. 


Figures 51 and 52 show examples of results obtained with FIGURE 
ROTATION. 
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FIGURE 51: ROTATION ABOUT DIFFERENT CENTERS 
THE BLACK TRIANGLE IS THE ORIGINAL 


FIGURE 52: FIGURE PRODUCED BY ROTATION 
THE BLACK RECTANGLE IS THE ORIGINAL 
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REN”FIGURE ROTATION C-12cB” 
GOTO 1eees - 
REM” SUBROUT.F.FIGUREROT” 
OJ=0.01745*0wW 

FOR OO=1 TO OE 

READ OF ,OH,O!I,OK 

OA=OF-OS 

OB=OT-OH 

OC=O01-O5 

O0D=OT-OK 
OV=INTCOA*COSCOJI-OB*SINCOJI 3 
OW=INTCOA*SINCOJ3+OB*COSCOJI] 
OX=INTCOC*COSCOJI-OD*SINCOJI3 
OY=INTCOC*SINCOJ3+0D*COS(OJ 1] 
OL=05+0VU 

OM=OT-OW 

00=05+0x 

OP=OT-OY 

DRAW1 , OF ,OHTOOI ,OK 
DRAW1 , OL, OMTOOO, OP 

NEXT OO 

RESTORE 

RETURN 

GRAPHIC1,1 

OW=180 

OE=3 

0S=160 

OT=S30 

REM”DATA X1,Y1,X2,Ye” 

DATA 170,90,220,90 

DATA 220,90,ee20,50 

DATA 220,50,170,90 

GOSUB ieec0e 

GOTO 1ee33 
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1e@200 REMN”FIGURE ROTATION C-64 
1e201 GOTO 12223 

1ec0e REM”SUBROUT.F.FIGUREROT” 
1ee03 OJ=0.01745*OwW 

12204 FOR OO=1 TO OE 

1ee0S READ OF,OH,OI,OK 

1lee06 OA=OF-OS 

1e2e07 OB=OT-OH 

1ee0B8 OC=O01-OS 

leeos OD=OT-OK 

12210 OV=INTCOA*COSCOJJ-OB*SINCOJI3 
12211 OQW<-INTCOA*SINCOJ1+0B*COS(OJ1) 
leele OX=INTCOC*COSCOJJ-OD*SINCOJI) 
12213 OY“INTCOC*SINCOJ)+O0D*COS(COJI3 
leeit OL=0S+0VU 

12215 OM=OT-OW 

12216 O0=0S+0X 

12217 OP=OT-OY 

12218 :LINE OF ,OH,OI,O0K,1 

12219 :LINE OL,OM,00,OP,1 

1eee0 NEXT OO 

leeel RESTORE 

leeee RETURN 

1leees HIRES 0,7 

leeet OW=-1680 

leeeS OE=3 

1eee6 OS=160 

leee7 OT=90 

leeeB REMN”DATA X1,Y1,Xe2, Ye” 

leeeS DATA 170,390,220,90 

lee30 DATA 220,90,220,50 

1lee31 DATA 220,50,170,90 

1lee3e GOSUB 12202 

lee33 GOTO 12233 


READY. 
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B5.3.2 ROTATION OF FIELDS 
With FIELD ROTATION, you can rotate fields or areas of the screen 
containing any picture dots. 


Use PA to enter the x coordinate for the upper left-hand corner of the field 
to be rotated. 


Use PB to enter the y coordinate for the upper left-hand corner of the field 
to be rotated. 


Use PC to determine the width of the field to be rotated. 

Use PD to determine the height of the field to be rotated. 

PW determines the angle of rotation (in the mathematical direction). 

PO defines the x coordinate of the center of rotation. 

PP defines the y coordinate of the center of rotation. 

In the program listing, you can see that a CLR has to be entered if you 
wish to have several rotations effected one after the other. This is 
necessary to prevent the computer from displaying the REDIMENSION 
ERROR message and exit from the program. 

You should get some pleasure from figures 53 and 54. For example, you 


can see that you are now in a position to have ellipses - or other curves - 
drawn at any angle. 
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FIGURE 53: ROTATION OF A SCREEN AREA 
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FIGURE 54: SCREEN AREA WITH ROTATED ELLIPSE 
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leeso 
leesi 
teese 
1ee53 
lees 
Lees 
12256 
1ee257 
12258 
1eess 
12260 
1eecé6l 
12262 
1ee63 
1ee64 
techs 
12266 
12267 
12268 
1leebs 
12270 
12271 
leeve 
1lee73 
1ee74t 
lee7s 
12276 


CAD for the C-128 and C-64 


REM”’FIELD ROTATION C-128” 
GOTO 12283 

REM” SUBROUT .F .F IELDROT” 
PK=0 

PZ=0.0174S*PW 

PE=PC*PD 

DIM PHCPE):DIM PMCPE3 
PY=PB 

FOR PI=1 TO PD 

PX=PA 

PY=PY+1 

FOR PJ=1 TO PC 

PX=PX+1 
LOCATEPX, PY: PL=RDOT(2) 
IF PL=1 THEN 12266 

GOTO 12269 

PK=PK+1 

PHC PKJ=PX 

PMCPKJ=PY 

NEXT PJ 

NEXT PI 

FOR PN=1 TO PK 
PF=PH{PN] 

PG=PMCPN) 

PU=PF-PO 

PW=PP-PG 
PX=INTCPU*COSCPZ)-PW*SINCPZ]3 


12277 PY=INTCPU*SINCPZJ+PW*COSCP2Z)) 
12278 PQ=PO+PX 

12279 PR=PP-PY 

12280 DRAW1,PO,PR 

12281 NEXT PN 

12282 RETURN 

12283 GRAPHIC1,1 

12284 PA=130 :REM”’X-COORD. OF UPPER LEFT 
CORNER” 

1228S PB=8S :REMN”Y-COORD. OF UPPER LEFT 
CORNER” 

12286 PC=70 :REM”’WIDTH OF FIELD” 

12287 PD=15 :REM”’HEIGHT OF FIELD” 

12288 PW=90 :REM”ANGLE OF ROTATION” 
12289 PO=130 :REM”X-COORD. OF CENTER PO! 
NT 3 

12290 PP=110 :REM”Y-COORD OF CENTER POI 
NT 33 
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1ee31 CHAR1,136/8 ,390/8, ”ORIGINAL” 

leeSe GOSUB 12252 

12293 CLR 

1eeSt PA=130: PB=85: PC=70: PD=15: PWw=180: PO 
=130:PP=110 

lee3SS GOSUB 1e25e 

12236 CLR 

lees? PA=130: PB=8S: PC=70:PD=1S5: Pw=270:PO 
=13507PP=110 

1ee2339 GOSUB 12252 

12300 CLR 

12301 PA=130: PB=8S: PC=70:PD=15: Pw=110: PO 
=100: PP=100 

1e30e GOSUB 1i22Se 

12303 CLR 

1e30% PA=130: PB=8S: PC=70: PD=15: PW=300: PO 
=210: PP=100 

12305 GOSUB 12252 

12306 CLR 

12307 PA=130: PB=8S: PC=70: PD=15: PW=135: Po 
=210>PP=100 

1e308 GOSUB 12252 

123093 GOTO 12309 


READY. 
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12250 
leesi 
1eeSe 
12253 
lees 
12255 
12256 
12257 
12258 
12253 
12260 
1ee61 
1226e 
12263 
1ec64t 
12265 
12266 
12267 
12268 
12269 
12270 
lee7i 
1ee7e 
12273 
12e74 
12275 
12276 
12277 
12278 
122793 
12260 
12261 
1e2e6e 
12283 
12284 


CAD for the C-128 and C-64 


pe 


REM”"FIELD ROTATION C-64” 
GOTO 12283 

REM” SUBROUT .F .F IELDROT” 
PK=0 

PZ=0.0174S5*PW 

PE=PC*PD 

DIM PHCPE]:DIM PMCPE3 
PY=PB 

FOR PI=1 TO PD 

PX=PA 

PY=PY+1 

FOR PJ=1 TO PC 

PX=PX+1 

PL=TESTCPX, PY] 

IF PL=1 THEN 12266 

GOTO 12269 

PK=PK+1 

PHCPK3=PX 

PMCPKJ=PY 

NEXT PJ 

NEXT PI 

FOR PN=1 TO PK 

PF=PHCPN) 

PG=PNCPN3 

PU=PF-PO 

Pw=PP-PG 
PX=INTCPU*COSCPZIJ-PW*SINCPZI) 
PY=INTCPU*SINCPZJ+PW*COSCPZ)) 
PQ=PO+PX 

PR=PP-PY 

:PLOT PQ,PR,1 

NEXT PN 

RETURN 

HIRES 0,7 

PA=130 :REM”X-COORD. OF UPPER LEFT 


CORNER” 


12285 


PB=85 :REM”’Y-COORD. OF UPPER LEFT 


CORNER” 


12286 
12287 
12288 
1ee89s 
NT ? 

12290 
NT 33 

leesl 


PC=70 
PD=15 
PW=390 
PO=130 


:REM”’WIDTH OF FIELD” 
:REM”HEIGHT OF FIELD” 
-REM”’ANGLE OF ROTATION” 
:REM”X-COORD. OF CENTER POI 
PP=110 :REM”Y-COORD OF CENTER PO! 


TEXT135,90, "ORIGINAL”,1,1,8 
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leeSe GOSUB 12252 

le233 CLR 

leeSt PA=130: PB=8S: PC=70: PD=1S: PW=180: PO 
=130:PP=110 

1ee3S GOSUB 12252 

1ee96 CLR 

1ee37 PA=130: PB=8S: PC=70: PD=15: PW=270: PO 
=130:PP=110 

leeSsS GOSUB 12252 

12300 CLR 

12301 PA=130: PB=8S: PC=70: PD=15: Pw=110: PO 
=100:PP=100 

12302 GOSUB 12252 

12303 CLR 

1e30% PA=130: PB=8S: PC=70: PD=15: Pw=300: PO 
=210:PP=100 

12305 GOSUB 12eS52 

12306 CLR 

12307 PA=130: PB=85: PC=70: PD=15: PW=135:PO 
=210:PP=100 

12308 GOSUB 12252 

12309 GOTO 12309 


READY. 
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B5.3.3. SPATIAL ROTATION 

The SPATIAL ROTATION program is used to rotate any body whose 
edges are represented by straight lines about the three solid angles. 

Use WX to define the angle of rotation for the x axis. 

If negative values are taken for WX, it is as if the y axis were rotated to 
the left about the zero point, i.e. the body edges, running in the x 
direction, are rotated upwards. 

If positive values are taken for WX, the reverse applies. 

Use WY to define the angle of rotation for the y axis. 

If positive values are taken for WY, it is as if the x axis were rotated 
forwards about the zero point, i.e. the body edges, which run in the y 
direction, are rotated forwards. 

If negative values are taken for WY, the reverse applies. 


Use WZ to define the angle of rotation for the z axis. 


This axis runs forwards or backwards (in reality, at 90 degrees to the x 
and y axis, 45 degrees on the drawing) into space. 


If positive values are taken for WZ, it is as if the y axis were rotated 
backwards about the zero point, i.e. the body edges, running in the z 
direction, are rotated upwards. 

If negative values are taken for WZ, the reverse applies. 

Use OG to enter the number of DATA lines. 

You use the DATA lines to define the coordinates of the body you wish to 
rotate. They are constructed as already mentioned. Only the coordinates 
for the z axis have to be added. 


The true length of these coordinates must be specified. The computer then 
shortens them automatically to the dimension required for perspective. 


In addition, it 1s important to specify the coordinates with respect to the 


center of rotation and not to the zero point on our screen!! The center of 
rotation has the coordinates x=0; y=0; z=0. 


237 


Abacus Software CAD for the C-128 and C-64 
—— 


And so, you can now see rectilinear bodies from all sides. But it is not 
easy and requires quite a bit of practice and the ability to visualize spatial 
relationships clearly. 


Look at figures 55 to 60. They give examples of the SPATIAL 
ROTATION program. Can you define the center of rotation? 


Here is a little assistance: the position of the center of rotation does not 
alter in the picture. Its coordinates, which we enter with V and W of 
course remain unchangeable (for this particular example. N aturally, you 
can change these coordinates at will for other examples). 
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FIGURE 55: PARALLELEPIPED, NOT ROTATED 


FIGURE 56: PARALLELEPIPED ROTATED BY WX=-30 
DEGREES | 


ww ON 
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FIGURE 57: PARALLELEPIPED ROTATED BY WY=45 
DEGREES 





FIGURE 58: PARALLELEPIPED ROTATED BY WZ=45 
DEGREES 
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FIGURE 59: PARALLELEPIPED ROTATED ABOUT ALL 3 
ANGLES 


FIGURE 60: PARALLELEPIPED ROTATED BY 
WX=WY=WZ=15 DEGREES 
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12400 
12c4%01 
124%0e 
1e403 
12404 
1240S 
12406 
12407 
12408 
1e409g 


REMN”SPATIAL ROTATION C-128” 

GOTO 1let4e 

REM” SUBROUT .F .SPATIALROT” 

OWC13=0 .01745*wWXx 

OWl2L2I=0.01745*wWy 

OWC3I3=0 .01745*WZ 
01013=COSCOW(33)*COSCOWl2I)) 
01Cej=-COSCOWC3II*SINCOWC2)) 
01033=SINCOWC3)I) 
Oe2eC13J=COSCOWlC1II*SINCOWC2IIJ+SINCOW 


C1II*SINCOWC3II*COSCOWC2I) 


CAD for the C-128 and C-64 
a es 


1e410 OeCeJ=COSCOWlL1II*COSCOWL2IIJ-SINCOW 
C1JI*SINCOW(C3II*SINCOWC2I) 

1e411 Oe&C33=—-SINCOWC1I))*COSCOWC3I) 

le4tle O3013=SINCOWL13I3*SINCOWC2II-COSCOW 
ClII*SINCOWC3II*COSCOWC2I) 

e413 O3C2I=SINCOWCL1I3*COSCOWlC2II+COSCOwW 


C1IJI*SINCOW(C3II*SINCOWC2)) 


1ec4%14 
12415 
12416 
12417 
12418 
tetio 
1e%e20 
letel 
1etee 
lete7 
12428 
leteg 
1e%30 
1e4%31 
1e4%3e 
betas 
1e434 
Letss 
12436 
1e438 
Le%39 
12440 
betat 
lette 
12443 


03(3)=COSCOWC133*COSCOWC3)} 
FOR OM=1 TO OG 

READ A,B,C,0D,E,F 
OX=0102)*C+0202]*A+03(21*B 
OY=0103)*C+02(3)*A+03(3)*B 
02=01013*C+02C1)*A+03(1)*B 
OU=0102)*F+02(2)*D+0302)*E 
O0U=01(3)*F+02C3]*D+03(3)*E 
OW=01013*F+02013*D+03013*E 
XO=INTCU+0X) 

YO=INTCW-OY) 

Z20=INTCOZ) 

UO=INTCU+OU) 

VO=INTCW-OU) 

WO=INTCOW) 
XX=INTCXO-20/2.8281 
YY=INTCYO+20/2.6828) 
UU=INTCUO-WO/2.828) 
UV=INTCVUO+WO/2.828) 
DRAW1, XX, YYTOUU, UU 

NEXT OM 

RESTORE 

RETURN 

GRAPHIC1,1 

WX=15 :REM’ANGLE OF ROTATION FOR 


X-AXIS” 


Lek 


WY=15 :REM”ANGLE OF ROTATION FOR 
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Y-AXIS” 


1244S 


W2Z=15 


Z-AXIS” 


12446 
1e4%k4s 
12450 
1e%51 
12452 
i1etsS3 
12454 
1e4%55 
12456 
12457 
12458 
12459 
124%60 
12461 
124%6e 
12463 
12464 
12465 


READY. 


OG=1e 
V=160 
W=140 
REN”’D 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
GOSUB 
GOTO 


CAD for the C-128 and C-64 


ene 


>REM”’ANGLE OF ROTATION FOR 


-REM”’NUMBER OF DATA LINES” 
»-REM”’X-COORD. OF CENTER” 
»-REM”Y-COORD. OF CENTER” 

ATA X1,Y1,2Z1, X2, Y2, 22” 

0,0,0,50,0,0 

0,0,0,0,0,100 

0,0,100,50,0,100 

S50,0,100,50,0,0 

50,0,0,50,80,0 

S50,0,100,50,80,100 

0,0,100,0,80,100 

0,0,0,0,80,0 
0,80,0,50,80,0 

S0,80,0,50,80,100 

50,80,100,0,80,100 

0,80,100,0,80,0 
12402 
1246S 
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12400 
12401 
1e4%0e 
1e4%03 
12404 
12405 
12406 
12407 
12408 
12409 


REM”SPATIAL ROTATION” C-64 

GOTO 1et4e 

REM” SUBROUT .F ..SPATIALROT” 

OWC1I3=0 .01745*WX 

OWl2I=0 .01745*wWyY 

OWCO3I=0 .0174S5*W2Z 
01013=COSCOWL333*COS(COWl233 
01Cej3=-COSCOWC3II*SINCOWC2EI) 
01033=SINCOWC33) 

0201 3=COSCOWl1II*SINCOWC2II+SINCOW 


C133*SINCOWL3II*COSCOWC2I) 


12410 


OeCed=COSCOWl133*COScCOWC2II-SINCOW 


C1II*SINCOWC3II*SINCOWC2I) 


1e4%11 
le4%ie 


OeC33=-SINCOWC13])*COSCOWC3I)3 
O3C1IJ=SINCOWC133*SINCOWC2I3I-COSCOW 


C1JI*SINCOWC3I3*COSCOWlC2eI) 


12413 


O3Ce&I=SINCOWC133*COSCOWL2I3+COSCOW 


C1II*SINCOWCIII*SINCOWC2I) 


12414 
12415 
12416 
12417 
12416 
12419 
12420 
1letel 
letee 
1lete7 
1e%eb 
lees 
124%30 
12431 
1e%3e 
1e4%33 
12434 
1e%35 
12436 
12438 
12433 
12440 
12441 
Lette 
12443 


03€3)=COS(OWC133*COSCOWl3)) 
FOR OM=1 TO OG 

READ A,B,C,D,E,F 
OX=0102)*C+02(21*A+03(21*B 
OY=01(3)*C+02(33*A+03(3)*B 
02=01013*C+02C1)*A+0301)*B 
OU=0102)*F+02(2)*D+03(2)*E 
OV=0103)*F+02C3)*D+0303)*E 
OW=01013*F+02013*D+03013*E 
XO=INTCU+0X) 

YO=INTCW-OY) 

Z0=INTCOZ) 

UO=INTCU+OU 

VO=INTCW-OU) 

WO=INTCOW) 
XX=INTCXO-20/2 .828) 
YY=INTCYO+20/2.828) 
UU=INTCUO-WO/2 .828) 
UU=INTCUO+WO/2 .828) 

:LINE XX,YY,UU,UU,1 

NEXT OM 

RESTORE 

RETURN 

HIRES 0,7 

WX=15 :REM”’ANGLE OF ROTATION FOR 


X-AXIS” 


Leeds 


WY=15 :REM”ANGLE OF ROTATION FOR 


Y-AXIS” 
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W215 


Z-AXIS” 


12446 
1e44s 
12450 
1e%S1 
12452 
12453 
1e4%54 
1e4%55 
12456 
12457 
12458 
12453 
12460 
12461 
1e4%6e 
12e4%63 
12464 
12465 


READY. 


O6=1ie 
V=160 
W=140 
REN”D 


GOSUB 
GOTO 


CAD for the C-128 and C-64 


ren 


:REM”ANGLE OF ROTATION FOR 


-REM’NUMBER OF DATA LINES” 
-REM”X-COORD. OF CENTER” 
-REM”’Y-COORD. OF CENTER” 

ATA X1,Y1,21,X2, Y2, 22” 

0,0,0,50,0,0 

0,0,0,0,0,100 

0,0,100,50,0,100 

S50,0,100,50,0,0 

50,0,0,50,80,0 

S50,0,100,50, 60,100 

0,0,100,0,80,100 

0,0,0,0,80,0 
0,80,0,50,80,0 

S50,80,0,50,680,100 

S50,80,100,0,80,100 

0,80,100,0,80,0 

12402 
12465 
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B5.4 EXPLODED DRAWINGS 


In certain cases, we should like to draw an assembly as if the individual 
components had been pulled apart by an explosion. 


We can produce such exploded views using the EXPLO program. 


This is obtained from the PARALLELEPIPED program. We enter 
coordinates identified there by x1, y1, x2,y2, etc., in the form Qx(1)=, 
Qy(1)=, Qx(2)=, Qy(2)=, ete. 


Using QF, we specify whether or not we wish to explode the figure: 


QF=1 signifies no explosion 
QF=2 signifies explosion. 


Using QE, we enter the explosion factor in the x direction. This specifies 
how far apart the individual components are to be pulled in the x 
direction. 


The same applies to QQ with reference to the y axis. 


We use A, B and C to specify the size of the individual parallelepipeds. 
We use QN to specify the values corresponding to A, B and C. 


Figures 61 and 62 give examples of how we can use EXPLO in order to 
have a drawing exploded. 


You will have noted that this program applies only to parallelepipeds. The 
object here was simply to illustrate the principle behind the operation. If 
you wish to explode other figures, you will have to create a program, by 
altering a macro, for example, as illustrated here. 
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FIGURE 61: UNEXPLODED 





FIGURE 62: EXPLODED 
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12500 
12501 
12502 
12503 
12504 
12505 
12506 
12507 
12508 
12509 
12510 
12511 
12512 
12513 
12514 
12515 
12516 
12517 
12518 
12513 
12520 
12521 
12522 
12523 
12524 
12525 
12526 
12527 
12528 
12529 
12530 





REM”EXPLO C-12B8” 
GOTO 12528 

REM EXPLO 
D1=INTCSOR(B1%2/8)) 
F1l=X1:F1=Y1+C1 
G1=X1+A1:H1=Y1+C1 
11=X1+A1+D1:J1=Y1+C1-D1 
K1=X1+D1:L1=Y1+C1-D1 
M1=X1+A1:N1=Y1 
01=X1:P1=Y1 
Q1=X1+A1+D1:R1=Y1-D1 
S1=X1+D1:T1=Y1-D1 
BOX1,X1,Y1,A1+X1,C1+Y1 
BOX1,S1,T1,A1+S1,C1+T1 
DRAW1,E1,F1TOK1,L1 
DRAW1,G1,H1TOI1,J1 
DRAW1 ,M1,N1TOO1,R1 
DRAW1 ,O1,P1TOS1,T1 
RETURN 

REM REXPLO 

QA=OX CON) 

QB=QYCON} 

QC=QE*QA-100 
QD=90*QB-100 

X1=INTCOC} 

Y1=INTCQDI 

GOSUB 12502 

RETURN 

GRAPHIC1,1 

QF=1 :REM"1=NOT EXPLO,2=EXPLO” 


QE=-1.e :QQ=2 :REMN”EXPLO-FACTOR F.X 


&Y-AXIS” 


1e531 


QXC1I3=125:Q0YC13=-115 :REM”COORD. OF 


STARTING POINT” 


12532 
12533 
Le534 
Le2535 
12536 
12537 
12538 
Lessa 
1eSto 
1eS4t1 
1este 


QOXC2I3=1e5:0YCeI=125 
QXC3)=155:QYC3)=95 
OXC43)=e25:0YC4%3=95 
QXCS53=195:0YC5)=1eS 
IF QF=2 THEN 12550 
X1=QXC13:Y1=O0YC13) 
A1l=80: B1=100:C1=10 
GOSUB 12502 
X1=OXC2):Y1=OYC2) 
A1=10:B1=10:C1=35 
GOSUB 12502 


248 


CAD for the C-128 and C-64 


1e543 
1es4 
12545 
12546 
12547 
12548 
1e5439 
12550 
12551 
140 

12552 
12553 
12554 
125S5 
12556 
12557 
12558 
1eS59 
12560 
12561 
1256e 


READY. 
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EE 


X1=QXC3):Y1=0YC3] 


GOSUB 


1250e 


X1=OXC4I): Y1=QYC4) 


GOSUB 


12502 


X1=Q@XC€S):Y1=O0YCS) 


GOSUB 


12502 


GOTO 1e56e 


QN=1 


A1i=s0: 


GOSUB 
QN=e 


A1=10: 


GOSUB 
QN=3 
GOSUB 
QN=4 
GOSUB 
QN=5 
GOSUB 


B1i=100:C1=10:Q0YC13=680:QXC1I= 
12519 


B1=10:C1=35 
12519 


12519 
12513 


12519 


GOTO 1e56e 
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1Les500 
12501 
1eS0e 
12503 
1eS04 
12505 
12506 
12507 
12508 
12509 
12510 
1e511 
1e51e2 
12513 
12514 
12515 
12516 
12517 
12518 
12519 
12520 
12521 
1eSee 
12523 
1leSe% 
12525 
1e52e6 
12527 
12528 
12523 
12530 
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REM” EXPLO 
GOTO 12528 
PROC ZEXPLO 
D1=INTCSOR(B1%2/8)) 
E1=X1:F1=Y1+C1 

G1=X1+A1:H1=Y1+C1 
11=X1+A1+D1:J1=Y1+C1-D1 
K1=X1+D1:L1=Y1+C1-D1 
M1=X1+A1:N1=Y1 

01=X1:P1=Y1 

Q1=X1+A1+D1:R1=Y1-D1 
S1=X1+D1:T1=-Y1-D1 

:REC X1,Y1,A1,C1,1 

:REC S1,T1,A1,C1,1 

: LINE E1,F1,K1,L1,1 

: LINE G1,H1,11,J1,1 

: LINE M1,N1,Q1,R1,1 

:LINE 01,P1,S1,T1,1 

END PROC 

PROC REXPLO 

QA=OX CON) 

QB=OYCON) 

QC=QE*QA-100 

QD=00*9B-100 

X1=INTCOCI 

Y1=INTCQD) 

EXEC ZEXPLO 

END PROC 

HIRES 0,7 

QF=1 :REM”’1=NOT EXPLO,2=EXPLO” 
QE=1.2 :O0=2 :REM”EXPLO-FACTOR F.X 


C-64 


&Y-AXIS” 


12531 


QXC1I3=1e5:QYC13=115S :REN”COORD. OF 


STARTING POINT” 


12eS53e 
12533 
less 
12535 
12536 
12537 
12538 
12539 
Les'o 
1es41 
Leste 
1eS43 


QXC23=1e25:0YC2I3=1e25 
QXC33=155: QYC33=9S 
OXC43J=eeS: OYC4I=95 
QXCS3=195:Q0YC5)=125 
IF QF=e THEN 12550 
X1=QXC13:Y1=OYC1) 
A1=80: B1=100:C1i=10 
EXEC 2EXPLO 
X1=OXC2I3: Y1=OYC2) 
A1=10: B1=10:C1=35 
EXEC 2ZEXPLO 
X1=QXC33: Y1=O0YC3) 


250 








Abacus Software 
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12545 
12546 
12547 
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EXEC ZEXPLO 
X1=OXC4): Y1=OYC4%) 
EXEC 2ZEXPLO 
X1=QXC5): Y1=0YCS) 
EXEC ZEXPLO 


GOTO 1256e 
QN=1 
A1=B80: B1=100:C1=10: 0YC13=80:0xXC1I)= 


EXEC REXPLO 

QN=2 
A1=10:B1=10:C1=35 
EXEC REXPLO 

QN=3 
EXEC 
QN=4 
EXEC 
QN=5 
EXEC 
GOTO 


REXPLO 
REXPLO 


REXPLO 
12562 
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B5.5 MOVEMENT 


The DYNA program brings movement onto the screen. You can also 
obtain movement using sprites. However, this is not everyone's cup of 
tea and is not particularly suitable for our field. 


I should therefore like to illustrate the principle that can be used to 
generate dynamic processes in another way. 


Use A1 to enter the x coordinate of center of rotation 1. 

Use B1 to enter the y coordinate of center of rotation 1. 

You use A2 and B2 to enter the same information for center of rotation 2. 
Use R2 to enter the radius of spoke 2. 

Use R1 to enter the radius of spoke 1. 


Use F1 to define the interval between two rotation steps and F1 to give 
the sign of the direction of rotation. 


You use F2 to do the same for center of rotation 2. 


Figure 63 shows you what happens on the screen. Movement cannot be 
represented on a printed figure, but you will perceive the principle of 
movement. 


The dynamic process on the monitor is as follows: first of all, one line is 
drawn. An identical line is then drawn close to it and, after what is 
considered to be a suitable interval, the first line is deleted. 


Before the second line is deleted, another line (the third line) is drawn 
close to it; only then is the second line deleted in its turn. 


If we did not always keep one line visible on the screen in this way, the 
lines or the figure would produce an undesirable flashing effect. 


The distribution of the lines within the program that are responsible for 
drawing and deleting a line play an important part in producing this 
impression. 


Try comparing the points at which LINE commands occur when using the 
0 or 1 conditions. 
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FIGURE 63: TWO CENTERS OF ROTATION DYNAMIC 
EFFECT PRODUCED ON SCREEN AS ROTATION OF TWO 
RADII 
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12600 
12601 
1260e 
12603 
12604 
12605 
12606 
12607 
12608 
12609 
12610 
12611 
1261ie 


REM”DYNA C-1e8” 

GOTO 1e6e6 

REM” SUBROUT.F .DYNA” 

21=21+F1 

Ze=Zertke 

IF 21>360 THEN 1e6ee 

IF Ze>360 THEN ie6e 

W1=21*0 .01745:VU1=C21+F13*0.01745 
We=Z22*0 .01745: Ve=(Z2e+FeI*0.01745 
X1=R1*COSCW1):X3=R1*COSCV1I 
Y1=R1*SINCW1):Y3=R1*SINCVU1I 
Xe=Re*COSCWe) : X4=Re*COSCVe2 I 
Ye=Re*SINCWed: Y4=Re*SINCVe2) 

12613 C1l=INTCA1+X1):C3=INTCA1+X3) 

12614 D1I=-INTCB1+Y1):D3=INTCB1+Y3)3: DRAWI1, 
A1,B1TOC3, D3 

12615 Ce=INTCAL+Xe2): CY=INTCAL+X4) 

12616 De=-INTCBet+Yed): D4=INTCBe+Y43): DRAW 1 
,Ae, BeTOCY, DY 


12617 :DRAW1,A1,B1TOC1,D1:DRAW1,A1,B1TOC 
3,03 

12618 :DRAW1,A2, B2TOC2, D2: DRAW1,A2, B2TOC 
4 DY 

12619 :DRAWO,A1,B1TOC1,D1 

12620 :DRAWO,A2, BeTOCe2, De 

12621 GOTO 12603 

12622 21=0 

12623 GOTO 12607 

12624 22=0 

12625 GOTO 12607 

12626 GRAPHIC1,1 

12627 Al=210:REM”X-COORD. OF CENTER 1” 
12628 B1=100:REM”Y-COORD. OF CENTER 1” 
12629 A2=100:REM”X-COORD. OF CENTER 2” 
12630 B@=65 :REM”’Y-COORD. OF CENTER 2” 
12631 R1=80 :REM”RADIUS OF SPOKE 1” 
12632 R@=SS :REM”’RADIUS OF SPOKE 2” 
12633 F1=10 :REM”’FACTOR FOR INTERVAL AND 


DIRECTIONC+ O 


~) 1” 


le634 Fe=-10 :REM”FACTOR FOR INTERVAL AN 
D DIRECTIONC+ O 
1°635 GOTO 1e60e2 


READY. 


-) 2” 
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12601 
12602 
12603 
12604 
12605 
12606 
12607 
12606 
12609 
12610 
12611 
1261ie 
12613 
12614 


Abacus Software 


REM” DYNA 
GOTO 12626 
REM” SUBROUT .F 
21=2Z1+F1 
2e=ZetFe 


CAD for the C-128 and C-64 


C-64 


- DYNA” 


IF 21>360 THEN 1e6ee 
IF 2e>360 THEN 126e4% 


W1=21*0.0174S5 
We=Ze*0 .01745 


Y1=R1*SINCW1) 


C1l=INTCA1+X14 
D1i=INTCB1+Y1) 


1,B1,C3,D3,0 


12615 
12616 


Ce=INTCAe+Xe2) 
De=INTCBet+Ye) 


2,Be,C4,DY,O 
12617 :LINE A1,B1,C1,D1,1:LINE A1,B1,C3, 


DY,1 

12619 
12e6e0 
1e6e1 
le6ee 
126e3 
1le6e4% 
126e5 
12e6e6 
12627 
12628 
126e9 
12630 
12631 
1le63e 
12633 


DIRECTIONC+ O 


X3=R1*COSCV1) 


> Y3=R1*SINCV1I 
Xe=Re*COSCwWe): 
Ye=Re*SINCwe): 


X4=Re*COSCV2I 
Y4=Re*SINCVe) 


:C3=INTCA1+X3) 
: D3=INTCB1+Y3) 


:C4=INTCAC+X4) 
> DY-INTCBe+Y4): 


>U1=C€21+F13*0.01745 
>Ve=C(2e+Fe2I3*0.01745 
X1=R1*COSCW1): 


:LINE A 


LINE A 


:LINE A2,B2,C2,D2,1:LINE A2,B2,C4, 
: LINE A1,B1,C1,D1,0 

: LINE A2,B2,C2,02,0 

GOTO 12603 

21=0 

GOTO 12607 

22=0 

GOTD 12607 

HIRES 0,7 

Al=210:REM”X-COORD. OF CENTER 1” 
B1=100:REM”’Y-COORD. OF CENTER 1” 
A2=100:REM”’X-COORD. OF CENTER 2” 
B2=65 :REM”’Y-COORD. OF CENTER 2” 
R1=BO :REM”’RADIUS OF SPOKE 1” 
R2=SS :REM”’RADIUS OF SPOKE 2” 
F1=10 :REM”’FACTOR FOR INTERVAL AND 


=) 


ss 


12634 Fe=-10 :REN”FACTOR FOR INTERVAL AN 


D DIRECTIONC+ O 


12635 


READY. 


GOTO 1260e 


-) 2” 
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BS5.6 SHADING AND COLOR DIFFERENTIATION 


For certain drawings, we are required to provide shading, to color in 
certain areas continuously or with a mosaic of color dots. This technique 
is more applicable to graphics than to design work. Consequently, we 
shall be taking only a brief look at it. 


As regards to shading, we are severely limited. We find ourselves in the 
same position as a printer with only very coarse screens at his disposal. 


And, just as in printing, we can get a haze of shading if we select values 
for the distribution of our dots and color spots that place them too close 
together or too far apart. The darker an area is to be, the more dots we 
must use per unit of area. 


In the case of color, we do have a little leaway as regards varying the 
tones. 


We do not have an automatic set of commands to set the dots for us, 
although, here too, we can use mathematics. However, this demands a lot 
of work and the effort is not worth our while. 

We have to set each individual dot, for example using the PEN program. 
It is a laborious business and there are as many computer pictures of this 
kind as sand on the seashore. 


Please spare me the trouble. 
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B5.7 CROSS-SECTIONS 


The CROSS-SECTION program draws three cross-section views of a 
cylinder, at oblique angles to its axis of rotation, the true cross-sectional 
area and the generated surface. 


This program is not part of our construction kit because itis not actually 
a basic program but the result of applying such basic programs. I have 
used it here because we can do this sort of thing with our programs. 


It is not generally possible to create a valid program for this type of thing 
simply by devoting a reasonable amount of effort to it. This involves a 
special branch of CAD in which all the rules of descriptive geometry have 
to be applied. 


If you have ambitions along these lines, you may find our program 
building blocks of valuable assistance, but you will be on your own from 
there on. 


The same applies if you are thinking of the intersections of different 
shapes. 


Strictly speaking, cross-sections represent a special case of intersection in 


which one or more shapes are not drawn but represented merely by their 
areas of contact. 
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FIGURE 64: 


CROSS-SECTION OF CYLINDER AT AN OBLIQUE 
ANGLE TO THE AXIS OF ROTATION 





ty 


ol 


ACTUAL SIZE OF CROSS-SECTION AREA AND 
DEVELOPMENT OF GENERATED SURFACE 


FIGURE ENTIRELY CALCULATED BY COMPUTER 
DATA ENTERED: 
DIAMETER 


HEIGHT 
ANGLE OF CROSS-SECTION 


258 


Abacus Software CAD for the C-128 and C-64 


a aE 


10 REM "CROSS-SECTION C-1cB” 

20 D=40 

e5 R=D/ce 

30 H=60 

40 A=26 

SO Wi=45 

60 AL=(3.14159/180)*w! 

70 C=H-A 

80 B=INTCC/TANCAL) J) 

S90 E=INICR*TANCALI] 

91 IF E/C =<R/D THEN 93 

S32 GOTOS6 

33° 8-0 

S94 C=INTCTANCALI*BI 

39S H=A+C 

96 IF E=> C THEN 98 

97 GOTO 101 

S88 E=C 

SS H=A+C 

100 B=INTCE/TANCALI3I 

101 KX=65 

110 KY=1c0 

120 :GRAPHIC 1,1 

130 ::DRAW1,KX-R,KYTOKX+R, KY 

140 ::DRAW1,KX-R,KYTOKX-R, KY-A 
150 ::DRAW1,KX+R,KYTOKX+R, KY-H 
160 ::DRAW1,KX-R+B, KY-HTOKX+R, KY-H 
170 ::DRAW1,KX-R,KY-ATOKX—R+B, KY-H 
180 KS=KX+D+ec0 

190 ::DRAW1,KS-R,KYTOKS+R, KY 

200 ::DRAW1,KS-R,KYTOKS-R, KY-A-E 
210 ::DRAW1,KS+R,KYTOKS+R, KY-A-E 
220 X=B-R 

230 Y=SORCR*%2-X*%2) 

PSO :CIRCLE1,KX,KY+20+R,R,R 

260 ::DRAW1,KX+X,KY+20+R+YTOKX+X, KY+2O+R 


270 U=D* 

eB0 UH=INTCCD*3.14159)/e2) 

e390 UR=INTCU/Y) 

300 KM=KX+R+20+D+20+UH 

310 ::DRAW1, KM—-UH, KYTOKM-UH, KY-A 
320 ::DRAW1,KM+UH, KYTOKM+UH, KY-A 
330 KW=KX-D-e0 

331 IF E=C THEN 333 
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GOTO 350 

FOR 2Z1=R TO ABSCXIJ+1 STEP -1 

: : DRAW1,KS-R, KY-HTOKS+R, KY—-H 

GOTO 360 

FOR 21= R TO 1 STEP -1 

X1=21 

Xenz2il=—1 

Y1l=INTCSORCR*2-X1%2)3 
Ye=INTCSORCR*%2-X2%2)) 

X3=R-X1 

X4=R-X2 

Y3=INTCX3*TANCALFAI) 

YS" INTCX4*TANCALFAII 
YS"INTCSOR(CX3%2+Y3%2)) 
Y6"INTCSORCX4%2+Y4%2)) 

: : DRAW], KS-Y1, KY-A-Y3TOKS-Ye2, KY-A-Y4 
: : DRAW1, KS+Y1,KY-A-Y3TOKS+Ye2, KY-A-Y4 
: : DRAW, KW-Y1 , KY-A-YSTOKW-Ye2, KY-A-Y6 
: :DRAW1, KW+Y1, KY-A-YSTOKW+Ye2 , KY-A-YE 
MX=INTCSORCX3%2+Y1%2)) 
NX=INTCSQRCX4%2+Y2%2)) 

: : DRAW1 , KN-UH+MX , KY-A-Y3STOKM—-UH+NxX, K 


Y-A-Y4 


: : DRAW , KN-UH, KYTOKM+UH, KY 
: : DRAW1 , KN+UH-MX , KY-A-Y3TOKM+UH-NX, K 


Y-A-Y4 


710 
720 


Y-A- 


730 


IF E=C THEN 760 

FOR 22=0 TO CX-1) 

X1=Z2e 

Xe=Zer+l 

YI=INTCSORCR*%2-X1%2)) 
Ye=INTCSORCR*%2-X2%2)) 

X3=R+X1 

X4=R+Xe 

Y3=INTCX3*TANCALI) 
Y4=INTCX4*TANCALI I 
YS=INTCSORC(CX1+RI42+Y3%23) 
YB=INTCSORCCX2+R1%2+Y4%2)) 

: : DRAW1 , KS-Y1,KY-A-Y3TOKS-Ye, KY-A-Y4 
: :DRAW1,KS+Y1,KY-A-Y3TOKS+Ye2, KY-A-Y4 
: : DRAW , KW-Y1, KY-A-YSTOKW-Ye2 , KY-A-YB 
: :DRAW1 , KW+Y1 , KY-A-YSTOKW+Y2 , KY-A-Y6& 
MX=INTCSORCX3%2+Y1%2)3 
NX=INTCSORCX4%2+Y2%2)) 

: : DRAW1 , KM-UH+MX , KY-A-Y3TOKM—-UH+NX, K 
Y4 

: : DRAW] , KM+UH-MX , KY-A-Y3STOKM+UH-NX, K 
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LS 


Y-A-Y4 

740 IF X2=X THEN 760 

750 NEXT 2e 

760 ::DRAW1,KM-UH+NX, KY-A-YYTOKMN+UH— —-NX,K 
Y¥=8> os 

761 ::DRAW1,KS-Ye, KY-HTOKS+Ye, KY—-H 
762 ::DRAW1,KW-Y2, KY-Y6-ATOKW+Ye, KY— 2e- A 
770 BX= =KW 

780 BY=KY-AtS 

7930 F1=60 

BOO GOSUB 9380 

810 BX=KxX 

B20 BY=KY+20+DtS 

B30 FI=150 

B40 GOSUB S80 

B50 BX=KS 

860 BY=KY+5 

870 FI=30 

B80 GOSUB 380 

BS0O BxX=K?l" 

900 BY=KY+5 

910 FI=390 

920 GOSUB 380 

930 BX=KX-R-10 

S40 BY=KY+20+R 

950 FI=60 

960 GOSUB 1060 

970 GOTO 1140 

980 REM”’VERTICAL CENTER LINE” 

990 oe Z23=0 TO FI STEP 30 

1000 ::DRAW1,BxX,BY-Z3TOBX, BY-2Z3-e0 
1010 ::DRAWO, BX, BY-23-20TOBX, BY-23-c' 
1020 ::DRAW1,BX,BY-Z3-24TOBX , BY-23- e6 
1030 ::DRAWO, BX, BY-Z23-26TOBX, BY-23- 30 
1040 NEXT 23 

1050 RETURN 

1060 REM”’HDORIZONTAL CENTER LINE” 

1070 FOR 24=0 TO FI STEP 30 

1080 ::DRAW1,BX+Z4, BYTOBX+Z4+c0, BY 
1090 ::DRAWO, BX+Z4+20, BYTOBX+24+ce't, BY 
1100 ::DRAW1, BX+Z4+24, BYTOBX+24+c6, BY 
1110 ::DRAWO, BX+Z4+26 , BYTOBX+24+30, BY 
1120 NEXT a‘t 

1130 RETURN 

1140 GOTO 1140 

1150 OPEN 1,% 

1160 PRINT#1, "CROSS SECTION OF CYLINDER 
AT AN OBLIQUE ANGLE” 


261 


Abacus Software CAD for the C-128 and C-64 
——— eee 


1170 PRINT#1,”TO THE AXIS OF ROTATION” 
1180 PRINT#1 

1190 PRINT#1, "ACTUAL SIZE OF CROSS SECTI 
ON AREA” 

1200 PRINT#1,”AND DEVELOPMENT OF GENERAT 
ED SURFACE” 

12°10 PRINT#1 

lee0 PRINT#1 

1230 PRINT#1 

1240 PRINT#1 

1ecSO PRINT#1, "FIGURE ENTIRELY CALCULATED 
BY COMPUTER” 

1260 PRINT#1 

1270 PRINT#1 

1280 PRINT#1 

1230 PRINT#1 

1300 PRINT#1,”DATA ENTERED :” 

1310 PRINT#1,SPCC15), "DIANETER” 

13¢e¢O0 PRINT#1,SPCC1S), "HEIGHT” 

1330 PRINT#1,SPCC15), "ANGLE OF CROSS-SEC 

TION” 


READY. 
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i 


10 REM "CROSS-SECTION C-64 

eo D=40 

25 R=D/e 

30 H=60 

40 A=c6 

SO Wi=45 

60 AL=(3.14159/160)*w! 

70 C=H-A 

BO B= INTCC/TANCAL)J) 

S90 E=INTCR*TANCALI I 

91 IF E/C =<R/D THEN 33 

932 GOTOS6 

33 B=D 

94 C=INTCTANCALI*B) 

95 H=AtC 

96 IF E=> C THEN 38 

$7 GOTO 101 

98 E-C 

393 H=A+tC 

100 B=INTCE/TANCALI) 

101 KX=65 

110 KY=1ce0 

120 HIRES O,7 

130 :LINE KX-R,KY,KX+R,KY,1 

140 :LINE KX-R,KY,KX-R,KY-A,1 
150 :LINE KX+R,KY,KX+R,KY-H,1 
160 :LINE KX-R+B,KY-H,KX+R,KY-H,1 
170 :LINE KX-R,KY-A, KX-R+B,KY-H,1 
180 KS=KX+D+e0 

190 :LINE KS-R,KY,KS+R,KY,1 

200 :LINE KS-R,KY,KS-R,KY-A-E,1 
P10 :LINE KS+R,KY,KS+R,KY-A-E,1 
e220 X=B-R 

230 Y=SORCR*2-X%*%2) 

250 : CIRCLE KX,KY+20+R,R,R,1 
P60 :LINE KX+X,KY+20+R+Y,KX+X,KY+2O+R-Y, 


270 U=D* 

280 UH=INTCCD*3.14159)/2) 

290 UV=INTCU/4) 

300 KM=KX+R+20+D+20+UH 

310 :LINE KM-UH,KY,KM-UH,KY-A, 1 
320 :LINE KM+UH,KY,KM+UH,KY-A, 1 
330 KW=KX-D-20 

331 IF E=C THEN 333 

332 GOTO 350 
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333 FOR Z21=R TO ABS(X)+1 STEP -1 

33% :LINE KS-R,KyY- H,KS+R,KY-H,1 

335 GOTO 360 

350 FOR 21= R TO 1 STEP -1 

360 X1=2Z1 

370 Xe=Z1-1 

3B0 Y1=INTCSOR(CR*2-x142P))} 

390 Ye=INTCSORCR*2-xX2%2)) 

400 X3=R-X1 

410 X4=R-X2 

t20 Y3=INTCX3*TANCALFA)) 

430 Y4=INTCX4*TANCALFAI} 

440 YS=INTCSOR(CX34%2+Y3%2)) 

450 Y6=INTCSORCX4%2+Y442)) 

460 :LINE KS-Y1,KY-A- Y3,KS-Ye, KY-A-Y4, 1 

470 :LINE KS+Y1,KY-A- Y3, KS+Y2. KY-A-Y4,1 

4BO :LINE KW-Y1,KY-A- YS,KW-Y2,KY-A-Y6,1 

490 :LINE KW+Y1,KY-A- YS. KW+Y2. KY-A-Y6,1 

S500 MX=INTCSORCX3*2+Y1423) 

910 NX=INTCSOR(CX442+yY242)) 

520 :LINE KM- —UH+MX , KY-A-Y3, KM- UH+NX,KY-A 

=¥o 2 

seS :LINE KMN-UH,KY » KM+UH, KY, 1 

S30 :LINE KM+UH- —-MX, KY-A- Y3, KM+UH— -NX,KY-A 

ay t.1 

S40. NEXT 21 

S541 IF E=C THEN 760 

SSO FOR 2Z22=0 TO C(x-1) 

560 X1=Ze2 

570 Xe@=Z2+1 

S60 Y1=INTCSORCR*2-x1°?P)} 

SSO Ye=INTCSORCR*2-X2%P2)) 

600 X3=R+X1 

610 X4=R+X2 

620 Y3=INTCX3*TANLCALI) 

630 Y4=INTCX4*TANCALI) 

6B4YO YS=INTCSORCCX1+RI4%2+Y3%?2}) 

650 Y6“INTCSORC CX2@+RI42+Y4423) 

660 :LINE KS-Y1,KY-A- —-Y3,KS-Ye, KY-A-Y4, 1 

670 :LINE KS+Y1,KY-A- ¥3, KS+Ye2, KY-A-Y4, 1 

680 :LINE KW-Y1,KY-A- YS,KW-Y2,KY-A-Y6,1 
6390 :LINE KW+Y1,KY-A-yYSs »KW+Y2,KY-A-Y6, 1 

700 MX=INTCSOR(X3*2+Y1%2)} 

710 NX=INTCSORCX4%2+Y24?7)) 

720 :LINE KM-UH+MX , KY-A-Y3, KM-UH+NX, KY-A 

Yo 

730 :LINE KMN+UH-MX,KY-A- Y3,KMN+UH-NX,KY-A 

=Vitut 
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740 IF X2=X THEN 760 

750 NEXT 22 

760 :LINE KM-UH+NX,KY-A-Y4, KM+UH-NX, KY-A 
~Y4,1 

761 :LINE KS-Y2,KY-H,KS+Y2,KY-H,1 
762 :LINE KW-Y2,KY-Y6-A, KW+Y2,KY-Y6-A, 1 
770 BX=KW 

780 BY=KY-At+S 

730 FI=60 

800 GOSUB 980 

B10 BX=KX 

B20 BY=KY+20+D+S 

830 FI=150 

840 GOSUB 980 

850 BX=KS 

860 BY=KY+5 

870 F1=90 

880 GOSUB 980 

B90 BX=KM 

900 BY=KY+5 

910 F1=90 

920 GOSUB 980 

930 BX=KX-R-10 

S40 BY=KY+20+R 

950 FI=60 

960 GOSUB 1060 

970 GOTO 1140 

980 REM’VERTICAL CENTER LINE” 

990 FOR 23=0 IO FI STEP 30 

1000 :LINE BX,BY-23,BX,BY-Z23-20,1 
1010 :LINE BX,BY-23-20, BX, BY-23-24,0 
1020 :LINE BX, BY-23-24, BX, BY-23-26,1 
1030 :LINE BX,BY-Z23-26, BX, BY-Z23-30,0 
1040 NEXT 23 

1050 RETURN 

1060 REM”’HORIZONTAL CENTER LINE” 
1070 FOR 24=0 TO FI STEP 30 

1080 :LINE BX+Z4, BY, BX+Z4+20, BY,1 
1090 :LINE BX+Z4+20, BY, BX+Z4+24, BY,O 
1100 :LINE BX+Z4+24, BY, BX+Z4+26,BY,1 
1110 :LINE BX+Z4+26, BY, BX+Z4+30, BY, 0 
1120 NEXT 24 

1130 RETURN 

1140 GOTO 1140 

1150 OPEN 1,4 

1160 PRINT#1, "CROSS SECTION OF CYLINDER 
AT AN OBLIQUE ANGLE” 

1170 PRINT#1,”TO THE AXIS OF ROTATION” 
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1160 PRINT#1 

1150 PRINT#1, "ACTUAL SIZE OF CROSS SECTI 
ON AREA” 

1200 PRINT#1,”AND DEVELOPMENT OF GENERAT 
ED SURFACE” 

1210 PRINT#1 

1e2e0 PRINT#1 

1230 PRINT#1 

1e4O0 PRINT#1 

1eS0 PRINT#1, "FIGURE ENTIRELY CALCULATED 
BY COMPUTER” 

1260 PRINT#1 

1270 PRINT#1 

1260 PRINT#1 

1290 PRINT#1 

1300 PRINT#1, "DATA ENTERED :” 

1310 PRINT#1,SPCC15), "DIANETER” 

1320 PRINT#1,SPCC153, "HEIGHT” 

1330 PRINT#1,SPCC15], "ANGLE OF CROSS-SEC 
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B5.8 SAVING HIRES ONTO A DISKETTE 


This is where it gets really interesting for us. Up to now, we have not 
been able to save the high-resolution screen, that is to say pictures, or at 
least, parts of them drawn using GRAPHIC (HIRES in SIMONS' 
BASIC) onto our external storage media, i.e. diskettes. 


The HIRES STORAGE program enables us to save areas or fields of the 
GRAPHIC (HIRES in SIMONS' BASIC) screen onto diskettes and, if 
we take the time, we can store the entire contents of the screen on a 
diskette in stages. | 


The program is run in direct conversational mode with the computer. 


The questions appear on the text (hires screen in SIMONS’) screen and 
then flip the hires screen. (Note: your answers will not appear in 
SIMONS' BASIC) 


If you call up the program, (but you can make it a built-in part of your 
system for the computer itself to ask you from time to time if you wish to 
carry out interim storage. This is a good idea in order to safeguard 
valuable interim results!), the computer will respond by asking: 
STORE? Y/N. You then answer by entering Y (for "Yes") or N (for 
"No") and press RETURN. 


(Note: In SIMONS' BASIC the text appears on the hires screen and when 
the questions are answered the text is then deleted but, if any lines of the 
drawing happen to have been overwritten, these will not be deleted). 


When finished answering the questions it will ask you if you wish to 
repeat the process again; if you also give a negative answer, it will display 
'END'. The END message goes off after 10 seconds and you can work 
on your next program. 


However, the interesting branch of the program begins if you have 
answered Y. The computer will then ask: NAME? to obtain from you 
the filename under which you wish to save the field. 


You then enter the chosen name and re-press RETURN. Whereupon, 
the computer asks you: CORNER X? CORNER Y? 


In answer, you enter: 


The x coordinate for the top left-hand corner of the field to be stored and 
press RETURN. 
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The x coordinate for the top left-hand corner of the field to be stored and 
press RETURN. You must make sure to press RETURN after entering 
each variable, even if the requests for x and y appear on the same line and 
simultaneously. 


Once you have answered the question and pressed RETURN in each 
case, the computer will ask you: WIDTH? HEIGHT? 


You therefore enter the width of the field to be stored (RETURN) and its 
height (RETURN). 


The screen will then show: SCANNING 


This means that the computer will now scan the field to be stored, dot by 
dot, for set points and will take note of them. The larger the field you 
have selected, the longer it will take. 


Please remember what we have learned about field sizes in Chapter 5.1. 


When STORING appears on the screen, this means that the computer is 
Storing the picture dots it has found onto the diskette. You will also notice 
that your disk drive has started running. I hope, for your sake, that you 
have not forgotten to insert a diskette! 


Once the computer has finished, it asks: REPEAT? Y/N 


If you answer Y, the entire process is repeated from the beginning. If you 
answer N, it goes to the end of the program and displays END. And, 10 
seconds later, you can go on with your next program. 


The FILE number and the ID number selected by the program in each case 


is 2. Of course, you can change this. You can aiso enter the two values in 
conversation mode by adding a corresponding question. 


With the HIRES STORAGE program, we can thus save areas that are 
particularly important for us onto diskette and, if we want, we can store 
several areas or the entire contents of the screen by means of repeats. 


We now have a very important tool to help us in our work; the only snag 
is that it takes time. But we have tons of that. 
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12700 REM”SYHIRESST C-12cB” 
12701 GOTO 12757 

12702 REM”’SUBROUT.F.HSI” 

12703 K=0 

12704 :INPUT”STORE? Y/N”;AS 
12707 IF AS=”"N” THEN 1e74e 
12708 : INPUT”NANE”;AS 

12711 INPUT”’CORNER? CX,YI3”;A,B 
12714 INPUT”’WIDTH? HEIGHT”;C,D 
12717 PRINT” SCANNING” ; 

12718 G=C*D: Y=B:K=0 

12719 DIN HCGI]:DIN MCG) 

12720 FOR I=1 TO D 

12721 X=A 

1e7ee Y=Ytl 

12723 FOR J=1 TOC 

te7et X=X+1 

12725 LOCATEX, Y:L=RDOTC2) 
12726 IF L=1 THEN 12728 

12e7e7 GOTO 12731 

12728 K=K+1 

12729 HCKI=xX 

12730 MNCKI=Y 

12731 NEXT J 

12732 NEXT I 

12733 PRINT 

12734 PRINT”STORING” ; 

12735 OPEN 2,8,2,AS+”"S,W” 
12736 PRINT#2,A;CHRSC13);B;CHRS(13);C;CH 
R$C13);D;CHRSC13);K 

12737 FOR N=1 TO K 

12738 PRINT#2,HCNJ;CHRSC13);MCNI 
12739 NEXT N 

12740 CLOSE e 

12741 PRINT 

1e74e REM” REPEAT” 

12743 :INPUT”REPEAT? Y/N”; BS 
12746 IF BS=”"Y" THEN 12751 
12747 PRINT”END”; : SLEEPS: PRINT 
127S0 GOTO 12755 

12751 CLR 

127Se GOSUB 1270e 

12753 GOTO 12760 

12754 CLR 

12755 RETURN 
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127S6 CLR 

12757 REM”HIRES” 

12758 REN 

12753 GOSUB 12702 

1¢760 POKE4S, 1:POKE46,64: POKE16384 ,0:GOT 
010 


READY . 
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12700 REM”HIRESSTORAGE C-64t 

12701 GOTO 12757 

12702 REM”SUBROUT.F.HST” 

12703 K=0 

12704 :TEXT 10,190, "STORE? Y/N”,2,1,8 
1270S INPUT AS 

12706 : TEXT 10,190, "STORE? Y/N”,c,1,8 
12707 IF AS=”"N” THEN 1e74e 

12708 : TEXT 10,190, "NAME?”,2,1,8 

12709 INPUT AS 

12710 : TEXT 10,190, "NAMNE?”,2,1,8 

12711 :TEXT 10,190, "CORNER (X,Y]”,2,1,8 
12712 INPUT A,B 

12713 : TEXT 10,190, "CORNER C(X,Y)”,ce,1,8 
12714% : TEXT 10,190, "WIDTH? HEIGHT?”,c,1, 
8 

12715 INPUT C,D 

12716 :TEXT 10,190, "WIDTH? HEIGHT?”,c,1, 
8 

12717 : TEXT 10,190, "SCANNING”,2,1,8 
12718 G=C*D: Y=B:K=0 

12719 DIM HCGI:DIN NCBI 

12720 FOR I[=1 TO D 

12721 X=A 

1e7ee Y=Yti 

12723 FOR J=1 TOC 

1e7et X=X+1 

12725 L=TESTCX,Y] 


12726 
12727 
127268 
12729 
12730 
12731 
1273¢e 
12733 
le7st 


IF L=1 THEN 1e7e8 

GOTO 12731 

K=K+1 

HCKIJ=X 

MCKI=Y 

NEXT J 

NEXT I 

:TEXT 10,190, "SCANNING”,2,1,8 
: TEXT 10,190, "STORING”,2,1,8 
12735 OPEN 2,8,2,AS+"S,W” 

12736 PRINT#2,A;CHRSC13);B;CHRSC13);C;CH 
R$(013);D;CHRSC13);K 

12737 FOR N=1 TO K 

12738 PRINT#2,HCNIJ;CHRSC13); MCN) 
12739 NEXT N 

12740 CLOSE e 

12741 :TEXT 10,190, "STORING”,¢e,1,8 
12742 REN”REPETITION” 
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le743 : TEXT 10,190, "REPEAT? Y/N” ,2,1,8 
12744 INPUT BS 

12745 :TEXT 10,190, "REPEAT? Y/N” ,2,1,8 
1e746 IF BS="Y”" THEN 12751 

le7t7 : TEXT 10,190, "END”,2,1,B8 

12748 PAUSE 10 

le7493 :TEXT 10,150, "END”,2,1,8 

12750 GOTO 12755 

le751 CLR 

1e752 GOSUB 12702 

12753 GOTO 12760 

1275% CLR 

12755 RETURN 

12756 CLR 

12757 HIRES 0,7 

1e758 :TEXT 148,113, ”"S”",1,1,8 

12753 GOSUB 12702 

12760 END 


READY. 


272 


Abacus Software CAD for the C-128 and C-64 


a LL EEE 


B5.9 READING IN HIRES FROM A DISKETTE 


Of course, we also need a program to retrieve the stored HIRES areas 
from the diskette. 


This is done by the HIRES READ program. 
Once again, it runs in conversation mode with the computer. 
The computer asks you: READ? Y/N and NAME? 


You then give the appropriate answer, for which you have to know the 
name of your file. It must be the same name as the one under which you 
have saved the corresponding area of the screen. 


If you have to look up the filename in the directory of the diskette, do not 
be misled by the fact that a mysterious S has been appended to the name 
under which you have stored a field. This simply indicates that we are 
working with sequential files. 


Do not enter this S (!) when you specify the filename for HIRES READ. 
In this case, the computer would be unable to find the file. 


Otherwise, the procedure is the same as for the HIRES STORAGE 
program. 


The next question is: DRAW? Y/N 

If you answer N, the computer goes into repeat mode; if you answer Y, it 
will draw the stored area on the screen and, in fact, only the points that 
have been set in it. This way you are able to overlap graphics. 


In Part D, you will see how to do that. 
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12800 REMN”HIRESREAD C-128” 
12801 GOTO 12841 

12e80e REM”SOUROUT.F.HREAD” 
1°603 GRAPHICO : INPUT”READ? Y/N”;AS 
126806 IF AS=”"N” THEN 12827 
12807 INPUT”NAME”;: AS 

126810 PRINT” READING” 

12811 OPEN 2,8,2,AS+”S, R” 
1eBle INPUT#2,A,B,C,D,K 
12613 G=C*D 

1e°814% DIN HC€GI:DIMN MCG) 
12815 FOR N=1 TO K 

12816 INPUT#2,HCNI,MCN) 
12817 NEXT N 

126818 CLOSE e 

12820 INPUT”DRAW? Y/N”;BS 
1eBe3S IF BS=”"N” THEN 12827 
128e4 GRAPHIC1:FOR N=1 TO K 
1e8eS :DRAW1,HCON),MCNI 
1e6e6 NEXT N: SLEEPS 

1e6e7 REMN”REPETITION” 
128e8 GRAPHICO: INPUT” REPEAT? Y/N”; BS 
1°831 IF BS=”"Y” THEN 12836 
1e63e PRINT”END” 

126833 SLEEP 10 

12835 GOTO 12839 

12836 CLR 

12837 GOSUB 12802 

12838 GOTO 12843 

12839 RETURN 

126840 CLR 

12841 GRAPHIC1,1 

1leBte GOSUB 12802 

1e643 END 


READY. 
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12603 
126804 
12805 
12806 
12807 
12808 
12603 
12810 
12611 
1281e 
126813 
12614 
12815 
12616 
12817 
12618 
12619 
126e0 
126e1 
126ee 
126e3 
128e4% 
12e6e5 
12826 
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: TEXT 10,190, "READ? Y/N”,2,1,8 


INPUT AS 


:- TEXT 10,190, "READ? Y/N”,2,1,8 


IF AS=”"N” THEN 


12827 


: TEXT 10,190, "NANE?”,2,1,8 


INPUT AS 


: TEXT 10,190, "NAME?”,2,1,8 
: TEXT 10,190, "READING”,2,1,8 


OPEN 2,8,2,AS+”S,R” 


INPUT#2,A,B,C,0,K 
G=C*D 


DIM HCG):DIN MCG) 

FOR N=1 TO K 

INPUT#2, HCONI ,MCNI 

NEXT N 

CLOSE e 

: TEXT 10,190, "READING”,2,1,8 

: TEXT 10,190, "DRAW? Y/N”,2,1,8 
INPUT BS 

:TEXT 10,190, "DRAW? Y/N”,2,1,8 
IF BS=”"N” THEN 1¢e6e7 

FOR N=1 TO K 


>:PLOT HCNJ,MNCNI,1 
NEXT N 


12827 REM” REPETITION” 

12828 :TEXT 10,190,”REPEAT? Y/N”,2,1,8 
12829 INPUT BS 

12830 :TEXT 10,190, ”REPEAT? Y/N”,2,1,8 
12831 IF BS="Y” THEN 12836 : 

12832 : TEXT 10,190, "END”,2,1,8 

12833 PAUSE 10 

12834 :TEXT 10,190, "END”,2,1,8 


12835 GOTO 12839 
12836 CLR 

12837 GOSUB 12e80c 
12838 GOTO 1ieB43 
12639 RETURN 
12840 CLR 

12841 HIRES 0,7 
12842 GOSUB 1260e 
1e8643 END 


READY. 
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It's impossible to answer this question because there are as many possible 
applications as there are computer users. With a little imagination, 
everyone will find ways of applying at least part of CAD for his own 
purposes and his particular problems. 


Therefore, I should simply like to give a couple of examples in lieu of the 
numerous applications that are possible. Perhaps we could quite generally 
identify the main fields of application as follows: 


Calculations 
Technical reports 
Designing variants 
Service documents 
Spares lists 
Design 

Electronics 


C1 CALCULATIONS AND TECHNICAL REPORTS 


Right at the beginning of this book, we learned that calculation was 
among the tasks performed by CAD. Up to now, this task has been very 
much neglected. But it plays a very important part in the day-to-day use of 
the computer. 


To show you what our computer is capable of in this field, I have taken 
the example of stress calculation. Those who are familiar with such things 
will know what it involves. I do not wish to go into detail but simply 
point out the strength of the computer when it comes to a combination of 
computing, drawing and text. 


The computer makes calculations for what is to be drawn and it draws 
what has been calculated automatically and writes an explanatory text into 
the bargain. It automates a complicated calculating operation in such a 
way that even a novice could do it. It provides a universally valid and 
repeatable form for calculations and it enables a very large number of 
variants to be computed and tested swiftly. 


Devising a program for such calculations involves a great deal of effort. 


But once it has been done, it saves an enormous amount of work and 
makes for incredible flexibility and speed. 
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Incidentally, this applies without exception to all the computer 
applications. | 


Might I just point out one more small detail: In technical calculations and 
reports, use is often made of special symbols. For instance, the Greek 
letters Sigma and Gamma are used in our example 1C. 


Our printer enables us to devise these special symbols for ourselves. 


LIST OF SIMPLE CROSS-SECTIONS 
EXAMPLE 1A 





LIST OF SIMPLE STRESS TYPES 
EXAMPLE 1B 
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EXAMPLE 1C: STRESS CALCULATION 
CALL-UP OF DESIRED CROSS-SECTION: IST. STEP 


CROSS-SECTION NO.1 MOMENTS OF INERTIA 
>. JX=B*H**3/12 
JY=H*B**3/12 





MOMENTS OF RESISTANCE 
WX=B*H**2/6 
WY=H*B**2/6 


X AND Y GIVE THE REFERENCE AXES 


ENTER THE STRUCTURAL DIMENSIONS IN CM: 


2ND. STEP 
W = 4.20 CM 
H = 5.60 CM 
THE FOLLOWING VALUES ARE OBTAINED: 

3RD. STEP 


MOMENTS OF INERTIA MOMENTS OF RESISTANCE 


IN CM4 IN CM3 
JX = 61.4656001 WX = 21.952 
JY = 34.5744 WY = 16.464 
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CALL UP THE REQUIRED STRESS TYPE 
4TH. STEP 


STRESS TYPE NO.2 





FREE-RESTING BEAM OF CONSTANT CROSS-SECTION 
ENDANGERED CROSS-SECTION AT X=L/2 

BEARING LOADS A=B=F/2 

MOMENT AT DISTANCE X: M=(F*L/2)*(X/L) 


MAXIMUM MOMENT FOR L/2: M=F*L/4 


EQUATION FOR BENDING LINE: 
YX=((F*L**3)/(16*E*J))*(X/L)*(1-((4*X**2)/(3*L**2))) ; X=<L/2 
MAXIMUM DEFLECTION AT L/2 YX=(F*L**3)/(48*E*J) 
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5TH. STEP 
WIDTH BETWEEN SUPPORTS L=50CM 
FORCE F = 2000N 
ELASTICITY MODULUS E = 21*10**6 N/CM2 
PERMISSIBLE BENDING STRESS | PERM.=4000 N/CM2 
SAFETY FACTOR | SF = 3 
STRESS CONCENTRATION FACTOR K =0.8 
SPECIFIC WEIGHT o = 7.85/10**3 N/CM3 
THE FOLLOWING VALUES ARE OBTAINED 

6TH. STEP 
AXIS OF INERTIA X 
BENDING LINE YX MAX = 4.03503542E-03 CM 
TO HAN 

MOMENT AREA MMAX = 25000 _ NCM 


AXIS OF INERTIA Y 
BENDING LINE YX MAX = 7.17339631E-03 CM 


MOMENT AREA M MAX = 25000 NCM 


SCALE:YX 50:1 M_ 1:1000 
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CALCULATION OF BENDING STRESSES PRESENT: 


7TH. STEP 

AXIS OF INERTIA X 
FORMULA: 

PRES.=(M MAX*SF)/(WX*K) 
VALUE: S= 4270.68149 N/CM2 
AXIS OF INERTIA Y 
FORMULA: 

PRES.=(M MAX*SF)/(WY*K) 
VALUE: 8 = 5694.24198 N/CM2 


CHECKING FOR COMPLIANCE WITH STRESS REQUIREMENTS: 
8TH. STEP 


THE STRESS REQUIREMENT IS FULFILLED IF: 

PRES.= < PERM. 
AXIS OF INERTIA X 

PRES.= 4270.68149 < PERM.=4500 N/CM2 
SAFETY REQUIREMENT MET! 
AXIS OF INERTIA Y 

PRES.= 5694.24198 > PERM.=4500 N/CM2 
SAFETY REQUIREMENT NOT MET! 

FAILURE 
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LIST OF ALL VALUES CALCULATED: 


9TH. STEP 
WIDTH W = 4.2 CM 
HEIGHT H = 5.6 CM 
DISTANCE BET. SUPPORTS L = 50.0 CM 
MOMENT OF INERTIA JX = 61.4656001 CM4 
MOMENT OF INERTIA JY = 34.5744 CM4 
MOMENT OF RESISTANCE WX = 21.952 CM3 
MOMENT OF RESISTANCE WY = 16.464 CM3 
FORCE F = 2000.0N 
ELASTICITY MODULUS E =21000000.0 N/CM2 
SAFETY FACTOR SF = 3 
STRESS CONCENTRATION K = 8 
MAXIMUM BENDING MOMENT M = —= 2500.0 NCM 
MAXIMUM DEFLECTION YX = 4.03503542E-03 CM 
MAXIMUM DEFLECTION YY = 7.17339631E-03 CM 
PERMISSIBLE BENDING STRESS = 4500. N/CM2 
BENDING STRESS PRESENT =  4270.68149 N/CM2 
BENDING STRESS PRESENT =  5694.24198 N/CM2 
SPECIFIC WEIGHT = 7.85E-03 N/CM3 
VOLUME V = 1176. CM3 
WEIGHT W = 9.2316 N 
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C2 ELECTRONIC DRAWINGS AND PCB LAYOUT 


Primarily, we have taken examples from mechanical engineering. For 
example, our macros are concerned with mechanics. However, we could 
just as easily use the basic programs to devise macros for electricity and 
electronics. 


For example, smaller macros can be defined for transistors, resistors and 
capacitors, and we can construct larger macros as integrated circuits or 
similar items using smaller micros. 


The ways and means of doing so do not differ from those used in 
mechanics. Only the forms differ because the problems that have to be 
represented are not the same. 

Example 2 illustrates an electronic drawing. 

Example 3 shows another possibility of using the computer in electronics. 
If we do not make the conductor tracks too thin, we can even produce 
PCB layouts. 


One advantage is that we can make alterations quickly, checking at the 
same time to see what the PCB will then look like. 
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EXAMPLE 2: MICROS CAN BE COMPLETELY ADAPTED TO 
CATER FOR A PARTICULAR PROBLEM. HERE, WE HAVE 
ELECTRONICS. 





EXAMPLE 3: COMPUTER REPRESENTATION OF PCB LAYOUT. 


NR .1i/34 
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C3 SERVICE DOCUMENTS AND SPARE PARTS LISTS 


The computer is particularly suitable for producing lists and tables and for 
laying out all kinds of figures and texts. 


Using CAD, we can expand these tables and lists, which occur frequently 
in service documents, assembly instructions and spare parts lists, with 
sketches and figures. 


This makes everything so much clearer and a component can take on an 
appearance for the user of which he has been unaware all his life because 
he has merely juggled with part numbers. 

The additional information provided by simple drawings can thus prevent 
many mistakes and, sometimes, confusion. A client may be able to 
recognize a part he was looking for, and a document of this kind is easily 
kept up to date by the computer. 


Example 4 shows us a little parts list of the kind you can easily produce 
with CAD. 


We could think of many more examples, but we have to stop somewhere. 
The best thing about CAD is that it gives us broad scope for using our 


imagination and inventiveness and, at the same time, for experimenting to 
see what we are capable of doing. 


EXAMPLE 4: SERVICE DOCUMENTS 
EASY TO KEEP UP TO DATE WITH THE COMPUTER 


SPARES LIST NO. EL 107-5 
PART NAME NO. 


| SS) WASHER 107-5-1 


SLEEVE 107-5-2 


QO) 
OQ Oo LEVER 107-5-3 
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PART D: HOW A CAD SYSTEM IS PUT TOGETHER 


A CAD system is characterized by two important features: 


di: 


Everything that occurs when working with programs and drawings 
takes place on the high resolution screen; i.e. at the start of your 
design session, the graphics will be turned on via the menu and will 
remain on your screen for as long as you work at the computer. 


For our program building blocks, this means that the GRAPHIC or 
HIRES commands must be suppressed altogether. 


We needed these commands in order to enable each program to run 
independently. But now, they get in the way. We can deactivate 
these commands simply by making a comment line out of them, 
e.g. 


REM GRAPHIC 1,1 (C-128) or REM HIRES 0,7 (C-64) 


If you have looked carefully at the programs obtained from 
combinations, you will have seen such lines and wondered about 
them. 


Work with the computer takes place in conversation form. 


This means that the computer asks for the corresponding important 
information that it requires in order to use a given program. 


These questions will appear, for example, in the form of lines of 
text on the lower edge of the graphic screen and will disappear only 
once you have entered this information into the computer via the 
keyboard so that it can continue computing. 


The computer will therefore ask you what program it is, in fact, to 
run, and then load this program from our external storage medium, 
the floppy disk. To do so, it makes room by deleting the program 
previously run. 


However, if you wish to combine this program with the following 
program, it "merges" it, at the same time ensuring the correct 
sequence of line numbers. As you know, only programs with 
higher line numbers may be joined together to those with lower line 
numbers. The appendix contains a program to allow merging 
programs on the C-128. 
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The computer must also be provided with a wide range of auxiliary 
programs (such as delete, store, etc.). 


When you have answered a question from the computer, it carries 
out the desired operation - if the answer was right - and then asks 
you the next question. 


The questions are skilfully formulated to provide the most 
important information required in order to answer them. 


Generally, all you have to do is to answer Y (for "Yes") or N (for 
"No"), enter a figure or give a program name. You do not need to 
be familiar with the sequence of a computing operation or a 
program. You don't have to worry about anything. All you have to 
know is what you want from the computer. For our individual 
building block programs, this means that it must be possible to call 
them up individually and to combine them with one another; no 
program must impede another; each one must have its own 
questionnaire. 


We have already fulfilled the first requirements, but not the 
questionnaire requirement. This presents no problems. We can 
slightly modify all our programs at the end and extend them. 


After RETURN, we alter each building block program-specifically. 
This means that where the program lines for entry data are now 
located, we can incorporate the questions that the computer has to 
put so that the program concerned can run. 


If we call up a program by its name, we are then asked the 
questions specific to this program. 


The advantage of this structure is that, on one hand, the command 
menu can be really simple, i.e. take up little memory space, and, on 
the other hand, a program only occupies internal memory space as 
long as it is in the computer. While a program remains on the 
floppy disk, waiting to be used, it does not take any space away 
from another program in the computer's main memory. 


And so, we now know the requirements to be met by a CAD 
system. 


We are only talking about wishes at this stage and the price of each wish 


is doubled when it comes to computers I can quite well imagine our 
discarding one wish or another when devising a menu program. 
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I should now like to give an example of a menu program forming a little 
system composed of two basic programs and an auxiliary program might 
look like. In principle, a larger program would look exactly the same, 
except that it would consist of more programs. 


You can call up the menu program - which I have nicknamed 
CADDYMAT, using LOAD "CADDYMAT",8 and start it with RUN (If 
you have purchased the optional diskette). The program then displays its 
name on the graphic screen and, on the bottom line, it requests the name 
of the program to be loaded into the main memory from the diskette. 


I have made up the system here composed of 3 basic programs and 2 
auxiliary programs. 


Your answer can therefore be a selection from the following names: 


SYPARALLEL 
SYCYL 
SYCONE 
SYHIRESST 
SYHIRESREAD 


These strange-sounding names are the result of these programs having 
originated from the program building blocks whose names have been 
abbreviated here. To indicate that they have been transformed into system 
programs, I have prefixed them with the letters SY. I shall be coming 
back to this business of transformation into system programs later. 


Once you have selected one of these program names, you confirm it by 
entering RETURN. The computer then asks the next question: 


LOAD? Y/N 


If you enter a Y, the computer will load your program (after RETURN!) 
into the memory from the diskette, but first 1t requests: 


PROGRAM NAME AGAIN PLEASE 


You may not understand, but enter the name once again. I shall explain 
why the computer puts this apparently superfluous question. 


Once you have recovered your composure and entered the name (the same 
name!) once again, the computer will actually load the program. 


The corresponding program then displays its specific questions. There is 


no need to go into detail here. What it wants to know from you is the 
values of the variables that it will need. 
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The only thing to remember is to press RETURN after each entry, even if 
several values are requested on the same line. After entering each value, 
confirm with RETURN. The only mistake you could make would be to 
select values for the variables so that the drawing goes off the screen, in 
which case the program will end. 


What is more interesting for us here is the menu program, and certain 
aspects of the system programs. 


If you answer N to the question LOAD?, the computer asks: 


MERGE? Y/N 


As you know, of course, when a new program is loaded into the 
computer's main memory, any other programs already in it are deleted - 
unless ... but we shall be coming back to that presently. 


With MERGE, it is a different matter. In this case, the programs are not 
deleted and the new program is joined to the end of the old program, on 
condition that it has higher line numbers than those already in the 
computer. (Here, I have not built in any "automation"; when calling up a 
program, you must always make sure that you merge in programs with 
higher line numbers. The cost of automatic recognition would be very 
high; it would obscure what I am actually trying to make clear here and, in 
any case, you will only occasionally be using MERGE - the system 
makes it superfluous). 


If you have answered Y to MERGE?, the computer will load the 
corresponding program (without again asking you for its name!). 


It then reverts to the question: PROGRAM NAME? (in SIMONS' it 
displays the READY message and must be reRUN). 


If you had given the answer N to MERGE?, the computer would have 
asked you: 


INTERNAL? Y/N 


so that you can skip about inside the system without a new program being 
loaded. But that only makes sense if there are several programs in the 
computer to which you can skip. 


If you select MERGE in BASIC 7.0, the program will jump to the 
beginning. If you select MERGE in SIMONS’, the program will have to 
be restarted by typing RUN. You can tell the computer you wish to 
execute a previously MERGED macro by answering with Y when it asks 
INTERNAL? 
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You arrive at the question INTERNAL? Y/N by replying N to the 
questions LOAD? Y/N and MERGE? Y/N. 


If you give the answer N to the questions INTERNAL? Y/N, the 
computer will jump back again to the start of the menu and ask you once 
more: 


PROGRAM NAME? 


And now, to the interesting bit. The interesting question is LOAD? Y/N 
and what comes after Y - the second question after the program names. 
Now, in the normal course of events, a LOAD command would destroy 
the menu program. 


We must take steps to prevent this. We do this on lines 410, 420 and 430 
of the menu program. There, using the corresponding POKE commands, 
we displace the start of the BASIC area upwards. 


The menu program stays where it is, enclosed, so to speak, in a tight box. 
The computer is now completely unaware of its existence. The new 
program is written in the BASIC storage area located above. This new 
program is packed into a new - empty - box. 


However, because the computer no longer knows what the old box 
contains, it will ask you once again for the program name. This takes 
place beginning at line 431. 


The program then LOADS the new macro and executes it from the 
beginning. The new program is completely separated for the old. The 
old program is still in memory, but just hiding and unused. 


We have converted the program building blocks into system programs. 
Once again, we have altered them to suit our requirements as from 
RETURN. Here, we have added on the specific questions. That's all - 
almost. Because you will again see POKE commands at the end of each 
system program. 


When we're done with the program and wish to return to the menu 
program, these POKE commands then serve to reopen the lid of the old 
box - the start of the BASIC area is moved back down again. 


The system programs do this themselves, leaving the lids of their boxes 
open in the process! When the next program is loaded, they are thrown 
out of them. However, before this happens, the menu program has its lid 
firmly back 1n place. 
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Perhaps you already knew about the powers of POKE and PEEK (this is 
the counterpart to POKE-with PEEK, you can look into a storage area). If 
you didn't know about this, you have been missing something! 


And so, we have arrived at the end of our journey. Using these 
principles, you can construct a CAD system for yourself, extend the one 
illustrated here (all you have to do is extend the IF commands accordingly 
as from line 250 and add new system programs which you can obtain 
quite simply from the basic programs), or improve this system. 


Indeed, it is far from being a highly polished system. For example, the 
variable values entered do not appear on the screen in SIMONS' BASIC. 
With a little effort, you could change that. It has been changed in BASIC 
7.0 by using a one line text window in line 30. 


Or: when you enter the wrong program name at the start of the loading 
process, the computer exits with the FILE NOT FOUND message. That 
too could be changed. 


Or again, you could do something about that business of having to keep 
pressing RETURN. Or, or ... 


I have avoided incorporating all the different possibilities here so as not to 
obscure the basic principle. In addition to that, I most heartily wish you 
all the pleasure you can get from successfully tackling things for yourself. 


My main concern is to show you that it is possible to build up a complex 
system from small, simple building blocks, that the system can be made 
as convenient as you require and wish, but that every additional 
requirement has to be paid for by effort. 


As so often in life, you have to know what you want and how to achieve 
it with the least possible trouble. And trouble, in our case, also means the 
occupation of space in our computer's memory. Hence my comment 
about MERGE being superfluous (in the system). It merely takes up 
memory space unnecessarily. We can just as well call up program after 
program using LOAD and complete our drawing in this way. Then, we 
only take up as much storage space as we actually need at a given time. 
Consequently, my advice to you when working with CADDYMAT on the 
C-128 and C-64 is: forget the MERGE command. Otherwise, it's like 
fighting with one hand tied behind your back. 


If we dispensed with MERGE, our menu program would only consist of 


lines 1 to 60 and 410 to 490 (and the first request for the program name 
would also be dropped). 
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REM 29 3 Me We He He HE ME He He He He He EE? 

REM 79 He He HG HG IE ME He HE HE ME ME HE He HE? 

REM” MENU PROGRAM ” 

REM” CADDYMAT” 

REM 2? HMC — 1 OL MH 3% 

REM 3 SNe He 06 06 HE He HE HE Be ME He He ae ae >? 

GRAPHIC1,1:GOSUB 1000:REM SETUP APPEND 
10 WINDOWO,24,39,24,1 

30 GRAPHIC2,0, 24: INPUTCHRSC1473+”PROGRAM 
-NAME” ; AS 

70 INPUT”LOAD? Y/N”;BS 

100 IF BS=”"Y” THEN 400 

110 INPUT”APPEND? Y/N”; BS 

140 IF BS="Y”" THEN 380 

150 REM’SKIPPING WITHIN THE PRG” 

160 : INPUT” INTERNAL? Y/N”;BS 

190 IF BS="Y”" THEN 360 

200 GOTO 10 

210 IT=-1:I1F AS=”"SYPARALLEL” THEN 11350 
220 IF AS="SYCYL” THEN 11450 

230 IF AS="SYCONE” THEN 11480 

240 IF AS="SYHIRESST” THEN 12700 

250 IF AS=”"SYHIRESREAD” THEN 12800 

260 PRINT”PROGRAM NOT AVAILABLE”; : SLEEPS 
: PRINT 

270 : INPUT”ONLY CHANGE NAME? Y/N”;CS 
310 IF CS="N” THEN 10 

320 INPUT”NEW NAME”;AS 

350 GOTO 210 

360 REM” INTERNAL” 

370 GOTO 210 

380 REM”APPEND” 

390 SYS2816: DLOAD”> "+As: GOTO210 

400 REMN”LOAD” 

410 POKE 45,1 

420 POKE 46,128 

430 POKE 32768,0:CLR 

431 INPUT”PROGRAM-NAME AGAIN”;AS 


““Q DLOAD”>”’+AS:GOTO 210 
USO REM” # ee ee ee ee 


YEO REM” #2 i te ae te ae te me 
470 REN” END MENU ” 
YBO REM” mm ¥ a ee me ee 
UQQ REM’? # eae te me ee 


1000 FORI=2816T02916: READX: POKEI ,X:NEXT: 


Nou) - Wu 
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RETURN: REM 128 APPEND 

1001 DATA 169, 11, 162, 11, 141, 48, 3, 
142, 49, 3 

1002 DATA S6, 8, 72, 152, 72, 173, O, BS 
S, 72, 169 

1003 DATA 63, 141, 0, 255, 169, 108, 141 
, 48, 3, 169 

1004 DATA 242, 141, 49, 3, 56, 165, 45, 

233, 1, 133 

1005 DATA 99, 165, 46, 233, 0, 133, 100, 
24, 160, O 

1006 DATA 177, 99, 240, B, 230, 99, 208, 
248, 230, 100 

1007 DATA 208, 244, 200, 177, 939, 240, 4 
, 160, 0, 240 

1008 DATA 239, 200, 177, 99, 208, 247, 2 
30, 99, 208, 2 

1008 DATA 230, 100, 165, 99, 133, 195, 1 

6S, 100, 133, 196 

1010 DATA 104, 141, 0, 255, 104, 168, 10 

4, 40, 76, 108 

1011 DATA 242 


READY. 
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FEM 7? i a a ae ae a oe te ae ae Ea? 
FEM 7? ae ie 6 a ste ae ae te a ae ate se ate te 9? 


1 

e 

3 REM” MENU PROGRAM ” 

4 REM” CADDYMAT” 

5 REM’*** C-64 «eme” 

REM’? se te ae ae i ae ste ate ate he ae ae >? 

7 HIRES 0,7 

10 REMN”START” 

20 :TEXT 40,80 , "CADDYNAT”,2,3,3¢ 

30 : TEXT 1,190, ’PROGRAM-NANE?”,2,1,8 
40 INPUT AS 

SO :TEXT 40,680 , *CADDYMAT”,2,3,3¢ 

60 : TEXT 1,190, ”"PROGRAM-NANE?”,2,1,8 
70 : TEXT 1,190, "LOAD? Y/N”,2,1,8 

80 INPUT BS 

90 : TEXT 1,190, "LOAD? Y/N”,2,1,8 

100 IF BS=”"Y” THEN 400 

110 :TEXT 1,190, "MERGE? Y/N”,2,1,86 
120 INPUT BS 

130 :TEXT 1,190, "MERGE? Y/N”,2,1,8 
140 IF BS=”"Y” THEN 380 

150 REM”SKIPPING WITHIN THE PRG” 

160 : TEXT 1,190, "INTERNAL? Y/N”,c,1,8 
170 INPUT BS 

180 : TEXT 1,190, "INTERNAL? Y/N”,2,1,8 
190 IF BS=”"Y” THEN 360 

e00 GOTO 10 

210 IF AS=”"SYPARALLEL” THEN 11350 

220 IF AS=”SYCYL” THEN 11450 

230 IF AS=”"SYCONE” THEN 11480 

240 IF AS="SYHIRESSTORAGE” THEN 12700 
250 IF AS="SYHIRESREAD” THEN 12800 
260 :TEXT 1,175, "PROGRAM NOT AVAILABLE”, 
e,1,8 

270 :TEXT 1,190, "ONLY CHANGE NAME? Y/N”, 
2, 1;.¢ 

2680 INPUT CS 

e290 : TEXT 1,175, "PROGRAM NOT AVAILABLE”, 
e,1,9 

300 : TEXT 1,190, "ONLY CHANGE NAME? Y/N”, 
2.1570 

310 IF CS=”"N” THEN 10 

3e0 : TEXT 1,190, "NEW NANE?”,2,1,8 

330 INPUT CS 

340 : TEXT 1,190, "NEW NAME?”,2,1,8 

350 GOTO e210 
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eee 
360 REN” INTERNAL” 
370 GOTO 210 
380 REM”MERGE” 
330 MERGE AS,8:GOTO 210 
400 REM”LOAD” 
410 POKE 43,C9000+1) AND e255 
420 POKE 44, €9000+1)/256 
430 POKE 9000,0:CLR 
431 : TEXT 1,190, "PROGRAM-NAME AGAIN” ,2,1 
,8 
432 INPUT AS 
433 :TEXT 1,190, "PROGRAM-NAME AGAIN”,2,1 
g | 


440 LOAD AS,8:GOTO 210 
USO REM’? ¥ i a te ae te eee ae»? 


YEO REM” ¥ i i me me me a ae tee 


470 REM” END MENU ” 
4UBO REM’ #2 i a tek ee ee » 


USO REM” # iw a tee te ee ee» 


READY . 


296 


11350 
11351 
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11353 
11354 
11355 
11356 
11357 
113568 
11359 
11360 
11361 
1136e 
11363 
1136't 
11365 
11366 
11367 
11368 
11363 
11370 
1137e 


, Bi, CL 
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REM”SYPARALLEL C-128” 
GOTO 113693 
REM”’SUBROUT .F .PARA” 
DI=INTCSORCB1%2/8)) 
E1=X1:F1=Y1+Cl 
G1l=X1+A1:H1=Y1+C1 
11=X1+A1+D1:J1=Y1+C1-D1 
K1=X1+D1:L1=Y1+C1-D1 
M1=X1+A1:N1=Y1 
O01=X1:P1=Y1 
Q1=X1i+A1+Di:R1i=Y1i-Di 
S$1=X1+Di:T1=Y1-D1 

>:BOX 1,X1,Y1,A1+X1,C1i+Y1 
::BOX 1,91,T1,A1+51,Ci+T1L 
::DRAW1,E1,F1TOK1,L1 

; DRAWL,G1,HITOI1,J1 
::DRAW1,M1,N1iTOOQ1,R1 
::DRAW1,01,P1TOS1,T1 
RETURN 

REM” HIRES” 

INPUT”BOX:U-L CORNER? €X,YJ”;X1,Y1 
INPUT” BOX: WIDTH? DEPTH? HEIGHT”;A1 


GOSUB11352: INPUT”REPEAT? Y/N”;FS 


11376 IF F$="Y" THEN 11370 

11377 INPUT”’PRINT? Y/N”;FS 

11379 IF FS="N” THEN 11381 

11380 OPEN 1,4:REM ***#*** DUMP *####* 
11381 IFITTHENIT=0:GOTO10 

11382 BANKO: POKEY4S, 1:POKE4YS6, 64: POKE163B4 
,0:GOTO10 


READY. 
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11350 REM”’SYPARALLEL c-564 

11351 GOTO 11369 

11352 REM”SUBROUT.F.PARA” 

11353 D1=INTCSOR(CB1%2/8)) 

11354 E1=X1:F1-y1+C1 

113SS G1=X1+A1:H1=Y14C1 

11356 11=X1+A1+D1:J1-Y1+C1-p1 

11357 K1=X1+D1:L1=Y1+C1-D1 

11358 M1=X1+A1:N1=Y1 

11359 01=X1:P1=y1 

11360 @1=X1+A1+D1:R1=Y1i-p1 

11361 S1=X1+01:T1-Y1-nD1 

11362 :REC X1,Y1,A1,C1,1 

11363 :REC S1,T1,A1,C1,1 

11364 :LINE E1,F1,K1,L1,1 

11365 :LINE G1,H1,11,J1,1 

11366 :LINE M1,N1,01,R1,1 

11367 :LINE 01,P1,S1,T1,1 

11368 RETURN 

11369 REM’HIRES” 

11370 :TEXT 5,190, "BOX:U-L CORNER? (X,Y) 
» 2,1,8 

11371 INPUTX1,Y1:TEXT 5,190, "BOX:U-L COR 
NER? CX,Y]",2,1,8 

11372 :TEXTS,190, "BOX:WIDTH? DEPTH? HEIG 
HT?” ,2,1,8 

11373 INPUTA1,B1i,C1: TEXTS, 190, "BOX: WIDTH 
? DEPTH? HEIGHT?”,2,1,8 

1137% GOSUB113S2: TEXTS,190, "REPEAT? Y/N” 
,2,1,8 

11375 INPUT F%:TEXTS,190,”REPEAT? Y/N”,2 


11376 IF FS=”"Y” THEN 11381 
11377 : TEXT S,190, "PRINT? Y/N 7@ 456 
11378 INPUT FS:TEXT 5,190, "PRINT? Y/N” ,2 


11379 IF FS=”"Y” THEN 11381 

11380 OPEN 1,%:COPY 

11381 POKEYS, C2048+1I3AND2SS: POKEYY, C2048 
+13/256: POKE2048 ,0:GOTO10 


READY. 
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11450 
11451 
11452 
11453 
14954 
11455 
11456 
11457 
11458 
11453 
11460 
11461 
1146e 
11463 
11464 
11465 
11466 
11467 
11469 
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REM”"SYCYL C-128 
GOTO 11466 

REM” SUBROUT .F .CYLIN” 
RY=INTCAY/2) 
SY=INTCR4/2) 
E4=X4-R4: F4Y=Y4 
GY=X4+R4: H4Y=Y4 
T4=X4+R4+Z4: J4=Y4—-BY 
K4=X4-R4+Z24: LY=Y4—-BY 
O4=X4: PH=Y4 
M4=X4+Z4: N4=Y4-B4 
:CIRCLE1,04, P4, R4, S4 


-CIRCLE1 ,M4,N4, R4, S4 

-DRAW 1,E%, F4YTOKY4, LY 

-DRAW 1,G64,H4YTOI4Y, J4 

RETURN 

REM”HIRES” 

INPUT"CYL: CENTER? (X,Y]”";X4, Y4 
INPUT "CYL: DIAMETER”; A%: INPUT”CYL:H 


EIGHT?”;BY4: INPUT”CYL: DISTORTION”; 2t 


11471 
11473 
11474 
11476 
11477 
11478 
11479 
010 


READY. 


GOSUB11452: INPUT”REPEAT? Y/N”;FS 


IF FS="Y” THEN 11467 
INPUT”PRINT? Y/N”;FS 
IF FS=”"N” THEN 11478 


OPEN 1,4:**** DUMP **** 
IFITTHENIT=0: GOTO10 
POKE4S, 1: POKE4Y6 , 64: POKE16384, 0: GOT 
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1 HIRES7,0 

11450 REM”SYCYL C-64 

11451 GOTO 11466 , 
11452 REM”’SUBROUT.F.CYLIN” 
112453 RY=INTCAY/2) 

112454 S4=-INTCRY/2) 

112455 E4¢=X4-R4: F4¥=yy 

112456 GY=X4+R4: H4=yYy 

11457 IT4=X4+R4+24: Ju=yu-—py 
11458 K4Y=X4-RY4+24:L4=yy—py 
112459 O4=X4: P¥Y=yy 

11460 M4=X4+24: NY=y4—BYy 
11461 :CIRCLE OY, P4,R4,S4,1 
11%6e : CIRCLE M4,N4,R4,S4,1 
11463 :LINE E4,F4,K4,L4,1 
L1i464% :LINE G4Y,H4,14, 74,1 
1146S RETURN 

11466 REM”HIRES” 

11467 :TEXTS,190, "CYL: CENTER? CX, Yo" 36.1 
»8 

11468 INPUTX4, Y4: TEXTS, 190, "CYL: CENTER? 


CX,Y3”,2,1,8 

11469 : TEXTS,190, "CYL: DIAMETER? HEIGHT? 

DISTORTION?” ,2,1,8 

11%70 INPUTAY4, BY, 24: TEXTS, 190, "CYL: DIANE 
TER? HEIGHT? DISTORTION?” ,2,1,8 

11%71 GOSUB114S52:TEXTS,190, "REPEAT? Y/N” 


Pee a = | 

11472 INPUTFS: TEXTS,190, "REPEAT? Y/N” ,2, 
1,8 | 

11473 IF FS="Y”" THEN 11478 

11474 : TEXT S,190, "PRINT? Y/N” ,2,1,8 
11475 INPUT FS: TEXT 5,190, "PRINT? Y/N” ,2 
51,8 

11476 IF FS=”"N” THEN 11478 

11477 OPEN 1,4:COPY 

114786 POKE'3 , C2048+1 JAND2SS: POKEYY, C2048 


+1)/256: POKE2048 ,0: GOTO10 


READY. 
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12700 REM”SYHIRESST C-12B” 
12701 GOTO 12757 

12702 REM”’SUBROUT.F.HST” 

12703 K=0 

12704 :INPUT”’STORE? Y/N”;AS 
12707 IF AS="N” THEN 12742 
12708 : INPUT”NAME”;AS 

12711 INPUT”CORNER? CX,Y]”;A,B 
12714 INPUT”’WIDIH? HEIGHT”;C,D 
12717 PRINT”SCANNING” ; 

12718 G=C*D: Y=B:K=0 

12719 DIM HCG]:DIM MCG) 

12720 FOR I=1 TO D 

12721 X=A 

12722 Y=Y+1 

12723 FOR J=1 TOC 

12724 X=X+1 

12725 LOCATEX, Y:L=RDOTC2) 
12726 IF L=1 THEN 12728 

12727 GOTO 12731 

12728 K=K+1 

12729 H(K]=X 

12730 MCKI=Y 

12731 NEXT J 

12732 NEXT I 

12733 PRINT 

12734 PRINT”STORING”; 

1273S OPEN 2,8,2,AS+”S,W” 
12736 PRINT#2,A;CHRSC13);B;CHRSC13);C;CH 
RSC13);0;CHRSC13);K 

12737 FOR N=1 TO K 

12738 PRINT#2,HCNJ;CHRSC133;MCNI 
12739 NEXT N 

12740 CLOSE 2 

12741 PRINT 

12742 REM”REPEAT” 

12743 :INPUT”REPEAT? Y/N”; BS 
12746 IF BS="Y" THEN 12751 
12747 PRINT”END”; : SLEEPS: PRINT 
12750 GOTO 12755 

12751 CLR 

12752 GOSUB 12702 

12753 GOTO 12760 

127S4 CLR 

1275S RETURN 
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12756 CLR 
12757 REMN”HIRES” 
1e27S8 REM 
127593 GOSUB 1270e 
1e760 POKEYS,1:POKE46, 64: POKE16384, 0: GOT 
010 


READY. 
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12700 REM’SYHIRESST C-64” 

12701 GOTO 12757 

12702 REM”SUBROUT.F.HST” 

12703 K=O 

12704 : TEXT 10,190, "STORE? Y/N”,2,1,8 
1270S INPUT AS 

12706 : TEXT 10,190, "STORE? Y/N”,2,1,8 
12707 IF AS="N” THEN 12742 

12708 : TEXT 10,190, *"NAME?”,2,1,8 
12709 INPUT AS 

12710 : TEXT 10,190, "NAME?”,2,1,8 
12711 :TEXT 10,190, "UPPER LEFT X? Y?”,2, 


12712 INPUT A,B 
12713 :TEXT 10,190, ”UPPER LEFT X? Y?”,¢c, 


12714 :TEXT 10,190, "WIDTH? HEIGHT?”,c,1, 
8 

12715 INPUT C,D 

12716 : TEXT 10,190, "WIDTH? HEIGHT?”,e,1, 
8 

12717 : TEXT 10,190, "SCANNING”,2,1,8 
12718 G=C*D: Y=B: K=O 

12719 DIN HCG):DIN MCG) 

12720 FOR I=1 TO D 

12721 X=A 

le/ee YeY+1 

12723 FOR J=1 TOC 

1e7et X=X+1 

12725 L=TESTCX,Y3) 

12726 IF L=1 THEN 12e7c6 

12727 GOTO 12731 

12728 K=K+t+1 

12729 HCKIJ=xX 

12730 MCKI=Y 

12731 NEXT J 

12732 NEXT I 

12733 :TEXT 10,190, ”"SCANNING”,2,1,8 
12734 :TEXT 10,190, "STORING”,c,1,8 

12735 OPEN 2,8,2,AS+"5,W” 

12736 PRINT#2,A;CHRSC13);B;CHRSC13);C;CH 
R$C133;0;CHRSC133;K 

12737 FOR N=1 TO K 

12738 PRINT#2,HCNI;CHRSC13);,NCNI 

12739 NEXT N 
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12740 
12741 
le7te 
12743 
12744 
12745 
12746 
12747 
12748 
12749 
12750 
12751 
12752 
12753 
12754 
12755 
12756 
12757 
12758 
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CLOSE 2 

: TEXT 10,190, "STORING”,2,1,8 
REM” REPEAT” 

:TEXT 10,190, "REPEAT? Y/N”,2,1,8 
INPUT BS 

:TEXT 10,190, "REPEAT? Y/N”,2,1,8 
IF BS="J” THEN 12751 

:TEXT 10,190, "END”,2,1,8 

PAUSE 10 

: TEXT 10,190, "END”,2,1,8 

GOTO 12755 

CLR 

GOSUB 12702 

GOTO 12760 

CLR 

RETURN 

CLR 

REM” HIRES” 

: TEXTS, 190, "STORE” ,2,1,8:PAUSE 5:T 


EXTS,190, "STORE”,2,1,8 


12759 
12760 


GOSUB 12702 
POKE4S, C2048+1 I AND2SS: POKEYY, C2048 


+1]/256: POKE2048 , 0: GOTO10 


READY. 
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12800 
12601 
1280ce 
12803 
12806 
12807 
12610 
12611 
1261e 
12813 
12614 
1281S 
12816 
12817 
12818 
126193 
12820 
1e6e3 
126e't 
126e5 
12626 
12627 
12826 
12831 
12835 
12636 
12837 
12838 
12833 
12840 
12641 
1ebte 
12843 
010 


READY. 
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LS 


REM”*SYHIRESREAD C-128” 
GOTO 126841 

REM” SUBROUT .F .READ” 
INPUT”READ? Y/N”;AS 
IF AS="N” THEN 12827 
INPUT ”"NAME” ; AS 

PRINT ”READING”; 

OPEN 2,8,2,AS+”,S,R” 
INPUT#2,A,B,C,D,XK 
G=C*D 

DIM H{CG):DIM MCG) 
FOR N=1 TO K 
INPUT#2, HCN), MCN] 


NEXT N 

CLOSE e 

PRINT 

INPUT”DRAW? Y/N”; BS 
IF BS=”"N” THEN 1e8e7 


FOR N=1 TO K 

: DRAW1 ,HCNI,MCNI 

NEXT N 

REM” REPEAT” 
INPUT”REPEAT? Y/N”; BS 
IF BS=”"Y” THEN 12636 
GOTO 1e833 

CLR 

GOSUB 1280e 

GOTO 1e843 

RETURN 

CLR 

REM” HIRES” 

GOSUB i1e80e 

POKE4YS, 1: POKE4S, 64: POKE16384,0:GOT 
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12800 
12801 
12802 
12803 
12604 
12805 
12806 
12807 
12808 
12809 
12810 
12811 
12612 
12813 
1281 
12815 
126816 
12817 
12818 
12819 
12820 
12821 
1e6ee 
12623 
12Be4 
1e86eS 
12826 
12627 
12828 
1e8e29 
12830 
12831 
12632 
1e633 
126834 
12835 
12B36 
128637 
12638 
12639 
12840 
1eB41 
1eBte 
12643 
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REM”SYHIRESREAD C-64” 

GOTO 12641 

REM” SUBROUT .F .HIRESREAD” 

: TEXT 10,190, "READ? J/N”,2,1,8 


INPUT AS 
:TEXT 10,190, "READ? J/N”,2,1,8 
IF AS="N” THEN 12827 

:TEXT 10,190, *NAME?” ,2,1,8 
INPUT AS 


:TEXT 10,190, "NAME?”,2,1,8 
: TEXT 10,190, "READING”,2,1,8 
OPEN 2,8,2,AS+”"S, R” 
INPUT#2,A,B,C,0,K 

G=C*D 

DIM HCG):DIM MCG) 

FOR N=1 TO K 
INPUT#2, HON) , MCN] 

NEXT N 

CLOSE 2 

: TEXT 10,190, "READING”,2,1,8 
: TEXT 10,190, "DRAW? Y/N”,2,1,8 


INPUT BS 
: TEXT 10,190, "DRAW? Y/N”,2,1,8 
IF BS=”"N” THEN 12827 


FOR N=1 TO XK 
:PLOT HCNJ,MCN),1 

NEXT N 

REM” REPEAT” 

: TEXT 10,190, "REPEAT? Y/N”,2,1,8 
INPUT BS 

: TEXT 10,190, "REPEAT? Y/N”,2,1,8 
IF BS="Y" THEN 129836 

: TEXT 10,190, "END”,2,1,8 

PAUSE 10 

:TEXT 10,190, "END”,2,1,8 

GOTO 12839 

CLR 

GOSUB 12802 

GOTO 12843 

RETURN 

CLR 

REN” HIRES” 

GOSUB 12802 

POKE4Y3, C2048+1 JAND2SS: POKEY4, C2048 


+1)/256:POKE204%8,0:GOTO 10 
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CONCLUSION 


All that this book has been able to do is to make suggestions. 


The field is so complex that the programs described here could never 
include everything. It may happen that a program exits. One cannot 
reasonably be expected to cover all application possibilities. 


Such cases generally occur because the limiting conditions have not been 
observed. With a little flair, you will be able to find out why a program 
has suddenly ceased to run. And each time you do so, it is like a 
revelation, and we learn a great deal more about our computer and its 
language. 


You have more than enough scope to indulge your taste for 
experimenting. That's what so fascinating about CAD. 


If you have battled through as far as here, perhaps you will spare a 
minute's thought for my wife. 


She had to (!) read all this and scurry over the keys to produce it. To her, 
I would express my particular gratitude. 


Many thanks for your attention! 
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APPENDIX A - C-128 MERGE PROGRAM 


The following program is a subroutine in the C-128 version of 
“CADDYMAT". This machine language routine allows you to append 
BASIC programs together as long as the line numbers of the program to 
be appended start at a greater number than the initial program. To use this 
program GOSUB 1000 to start it, or change the RETURN in line 1000 to 
END and you can RUN it alone. You must SYS 2816 to set it up then 


LOAD as usual. You must SYS 2816 before LOAD eveytime you want 
ot use it. 


1000 FORI=28167T02916: READX: POKEI , X: NEXT: 

RETURN:REM 128 APPEND 

1001 DATA 169, 11, 162, 11, 141, 46, 3, 
142, 49, 3 

1002 DATA 96, B, 72, 152, 72, 173, 0, 25 

S, 72, 169 

1003 DATA 63, 141, O, 255, 169, 108, 141 
, 48, 3, 169 

100% DATA 242, 141, 49, 3, 56, 165, 45, 

233, 1, 133 

1005 DATA 99, 165, 45, 233, 0, 133, 100, 
24, 160, O 

1006 DATA 177, 99, 240, 8, 230, 99, 208, 
248, 230, 100 

1007 DATA 208, 244, 200, 177, 99, 240, 4 
, 160, 0, 240 

1008 DATA 239, 200, 177, 99, 208, 247, 2 
30, 99, 208, 2 

1009 DATA 230, 100, 165, 39, 133, 195, 1 

6S, 100, 133, 196 

1010 DATA 104, 141, 0, 255, 104%, 168, 10 

4, 40, 76, 108 

1011 DATA 242 


READY. 


308 


Abacus Software CAD for the C-128 and C-64 





APPENDIX B - C-128 GRAPHICS SCREEN DUMP (EPSON 
AND EPSON COMPATIBLE PRINTERS) 


The following program is a C-128 screen dump. To use it, RUN the 
program and type SYS 3072 to start it. If you want to print out a picture 
within your program either MERGE this program to yours (with the 
previous program) or RUN it and put the command SYS 3072 into your 
program where you want it to print. Included are two extra lines for the 
Star SG-10 printer to give a better looking print-out. On the optional disk 
is the program ">128 DUMP.OBJ". This program a object file of the 
screen dump. It can be LOADed by BLOAD">128 DUMP.OBJ" directly 
into memory. It is started the same way, SYS 3072. 


UQQGQD PEM 1 He He He Me He He Me Me He HE Me ee ME He EE Me He He HE HE EE 


49994 REM * C-128 SCREEN DUMP 
49995 REM * FOR EPSON GRAPHIC 
49996 REM * COMPATIBLE PRINTERS 
49997 REM * 

49998 REM * CC) 1968S BY RUSS TABER 
49999 REM * TO USE TYPE ’SYS 3072’ 
SOo00 REM He ME SHE HE HG HE SHE BE HE HE ME SHE He HE ME He HE HE HE SHE He He HE HE HE He HE He 
S0001 FORI=3072TO03322: READX: POKEI,X:NEXT 
: END 

So00e DATA 169, O, 141, O, e255, 169, O, 
32, 189, eSS, 169, 4 

SO0O03 DATA 170, 160, S, 32, 186, 255, 3c 
, sbegey 255.. 26e,. Sy de 

SO004 DATA 201, 255, 169, 27, 32, 210, e 
SS, 169, 65, 32, 210, e255 

SOOOS DATA 169, 8, 3e, 210, 255, 169, e7 
. ge, e100, 255; 169; 85 

SOOO6 DATA 32, 210, 25S, 169, 1, 3e, 210 
, @55, 169, 0, 133, 938 

50007 DATA 169, 3e, 133, 99, 169, O, 133 
, 100, 133, 101, 169, e7 

SO0008 DATA 3e, 210, @&S5, 169, 75, 3e, e221 
“O.. 255... e234, e234. cst, e234 

S00093 DATA e234, 169, 64, 3e, 210, 255, 1 
69, 1, 3e, 210, 255, 169 

50010 DATA 128, 133, 102, 169, 0, 133, 1 
03, 133, 106, 169, O, 133 

50011 DATA 104, 133, 105, e4+, 165, 96, 1 
O01, 104, 133, 104%, 165, 939 

S500ie DATA 101, 105, 133, 105, e4, 165, 
100, 101, 104%, 133, 104, 165 


* *& & K € 


* 
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50013 DATA 101, 101, 105, 133, 105, 164, 
103, 177, 104, 37, 102, 208 

50014 DATA 3, 76, 169, 12, S6, 169, B, 2 

29, 103, 168, 24, 169 

50015 DATA 1, 136, 240, 4, 42, 76, 157, 
12, 24, 101, 106, 133 

50016 DATA 106, 230, 103, 165, 103, 201, 
8, 208, 184%, 165, 106, 32 

50017 DATA 210, 255, 70, 102, 208, 169, 

24, 169, 8, 101, 100, 133 

50018 DATA 100, 169, 0, 101, 101, 133, 1 

01, 165, 100, 201, 64, 208 

50019 DATA 146, 165, 101, 201, 1, 208, 1 

40, 169, 10, 32, 210, 255 

50020 DATA 24, 169, 64, 101, 98, 133, 38 
, 169, 1, 101, 99, 133 


50021 DATA 39, 201, 
165, 98, 201, 
50022 DATA 208, 247, 32, 204, 255, 169 
195, 


Le , 


ag es 
50200 
50201 
50202 
50203 
50204 
S50e05 
50206 
50207 
50208 


10, 25S, 
50209 DATA 255, 


69, 1, 
50210 
50211 
50212 
50213 
50214 
50215 
50216 
50217 
50218 
50219 
50220 


READY. 


63, 240, 3, 76, BH, 
64 


eno, 36 


Fe EM 2s Mes te ts ate aie ate aie as ae ae ae aoe ale ate aft ate ate ate she aie ait 2h te ft ate att he ate ate 


REM* 
REM* 


REM* 


REM*# 
REM* 
REM* 


FOR THE STAR SG-10 PRINTER 


JUST CHANE LINE SO0O208 TO 

50008 AND 502093 TO Sooos 

AND YOU’LL GET A BETTER 
LOOKING PRINTOUT. 


*% *£ & # EK 


FR EM 2 2 He ee att ie ate ae he ate ae ate ae ate ate ate ate abe ate att age ate ate ate ate ote ae ae ae at ae 


DATA 32, 210, 255, 
169, S, 32, 210 


32, 210, 255, 


169, 103, 32, 2 


169, 64, 32, 210, 255, 1 
169. 


FRE. [© 3a 2 2 aie at ate ate ats ate ate ate ate ate ate ate te att ate aft ate ate aft ate ate ate aie ape 


REM* 


TO GET A REVERSED PRINT * 


REM* OUT ONCE THE PROGRAM IS * 


REM* 
REM* 
REM* 
REMN* 
REM* 
REM* 
REM* 


# 


IN MEMORY, TYPE: 
POKE 3215,240 


TO CHANGE IT BACK: 


* *# &£ * & & 


POKE 3215,208 


FR EJ # 2 i at ate ats age age ate ats ae att ate age ate ade ate ate apt ate aft ate ote ate at ae 
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With ROM listings For the programmer With ROM listings | Especially for the '128 
Avail. Nov. $19.95 Avail. Nov. $19.95 Avail. Dec. $19.95 Avail. Dec. $19.95 


..and more books. 


EE 
134 SCIENCE & COMPUTER- 
—KEPATR AND = ENGINEERING J] AIDED DESTGN 
MAINTENANCE FOR THE ON FHE, C-64 
HANDBOOK _ COMMODORE AND Cstane 


THE THE 
ANATOMY = : ANATOMY 
OF THE OR TH OR THE OF THE 

COMMODORE i 


a eee ey 
COMPILER DESEON S 
ry 
PIVLEMEN ET VELON 
ee 
ON TEED Cet 3 


Sr 
Bia 
AUN 





For two years a best Favorite among pro- Quickhitting, easy-to- All ime best seller. Brand new! Complete Intro to computers and CAD techniques using Learn to design and 
seller. C-64 internals grammers. 75,0004 use routines for every Revised & expanded. maintenance and repair world of science. Rea! C-128/C-64. Many pro- write your own compiler. 
wiROM listings. $19.95 sold worldwide. $19.95 C-64 owner. $14.95 ROMlistings. $19.95 procedures. $19.95 examples. $19.95 gram examples. $19.95 With examples. $19.95 


| IERIE FATT 

THE MACHINE TAL ADNANCED PRINTER 
LANGUAGE MACHINE LANGUAGE, BOOK FOR ‘THE 
hOOK OF THE BOon POR THE C.64_ AND 
COMMODORE COMMODORE OF 


sible 
GRAPHICS BOOK 
FOR THE 
COMMODORE 


ADVENTURE 
GAMEWRITERS 
HANDBOOK FOR 


COMMODORE G2 


CASSETTE IDEAS 
BOOK FOR © FOR USE 
C264 AND ON YOUR 

COMMODORE 





Most in depth treatment Into to machine lan- Techniques never cov- All about using printers A must for cassette Write your own adven- 
available. Dozens of guage geared to C-64. 


ered before interrupts, and ‘64. Graphics, text, owner. Hi speed cas- tures. Learn strategy, 
techniques. $19.95 Assembier incl. $14.95 controllers, etc. $14.95 interfaces. $19.95 


Dozens of interesting 


pro-ects for your ‘64. 
! sette system. $19.95 motivation. $14.95 Easy to read. $12.95 


OPTIONAL DISKETTES 
are also available for 
each of our book titles. 
Each diskette contains 
the programs found in the 
book to save you the time 
of typing them in at the 
keyboard. Price of each 
diskette is $14.95. 


Call now, forthe name of your nearest dealer. Or order 
directly from ABACUS with your MC, VISA or AMEX card. 
Add $4.00 for postage and handling. Foreign orders add 
$6.00 per book. Other software and books are also avail- 
able. Call or write for free catalog. Dealer inquiries welcome 
- over 1200 dealers nationwide. Call 616 / 241-5510 
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P.O. Box 7211 Grand Rapids, MI 49510 
Phone 616/241-5510 Telex 709-101 





POWER PLAN 
Powerful spread- 
sheet plus builtin 
graphics - display 
your important data 
visually as well as 
numerically. You'll 
learn fast with the 
90+ HELP screens. 
Minima so 380 Advanced users 
Maximum 013.10. Can use the short- 
cut commands. For complex spreadsheets, 
you can use POWER PLAN's impressive 
features: cell formatting, text formatting, cell 
protection, windowing, math functions, row 
and column sort, more. Then quickly display 
your results in graphics format in a variety of 
2D and 3D charts. Includes system diskette 
and users handbook. $49.95 


CADPAK Revised Version 


CADPAK isa 
superb design and 


XPER - expert system 


XPER is the first 
expert system-a 
new breed of 
intelligent software 
for the C-64 & C- 
128. While ordinary 
data base systems 
are good at repro- 
ducing facts, XPER 
can help you make 
decisions. Using its simple entry editor, you 
build the information into a knowledge base. 
XPER's very efficient searching techniques 
then guide you through even the most 
complex decision making criteria. Full 
reporting and data editing. Currently used 
by doctors, scientists and research 
professionals. $59.95 







Inexpensive 
What kind 
of ayling? 


DATAMAT - data management 


"Best data base 
NVEWICR ERE manager under $50" 





drawing tool. You 
can draw directly on 
the screen from 
keyboard or using 
optional lightpen. 
POINTS, LINES, 


hem Number  —ss——s$—Ct—séCD es Scrrriptiod RUN Magazine 


Onhand - Price 


Location 


aa Easy-to-use, yet 
Reord. Pl.  ___..._ Reord. Qy. _____ 1 versatile and power- 
Cost pee ful features. Clear 





BOXes, CIRCLES, 
and ELLIPSEs; fill 
with solids or patterns; free-hand DRAW; 
ZOON-in for intricate design of small section. 
Mesuring and scaling aids. Exact positioning 
using our AccuPoint cursor positioning. 
Using the powerful OBJECT EDITOR 
you can define new fonts, furniture, circuitry, 
etc. Hardcopy to most printers. $39.95 
McPen lightpen, optional $49.95 





CHARTPAK 


Make professional 

aE ee quality charts from 
DsCENERAL MOTORS your data in. 
minutes. Quickly 
enter, edit, save 
and recall your data. 
AIWAAINEAUNEAINHAINGa | Then interactively 
Provecred vean ” | build pie, bar, line or 
scatter graph. You 
can specify scaling, 
labeling and positioning and watch 
CHARTPAK instantly draw the chart in any 
of 8 different formats. Change the format 
immediately and draw’ another chart. 
Incudes statistical routines for average, 
deviation, least squares and forecasting. 
Hardcopy to most printers. $39.95 
CHARTPLOT-64 for 1520 plotter $39.95 


y Nea : 
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menus guide you 
from function to function. Free-form design 
of data base with up to 50 fields and 2000 
records per diskette (space dependent). 
Simple data base design. Convenient and 
quick data entry. Full data editing 
Capabilities. _ Complete reporting: sort on 
multiple fields and select records for printing 
in your specific format. $39.95 


TAS - technical analysis 


Technical analysis 
charting package to 
help the serious 
investor. Enter your 
data at keyboard or 
capture it through 
DJN/RS or Warner 
Services. Track 
high, low, close, 
volume, bid and 
ask. Place up to 300 periods of information 
for 10 different stocks on each data diskette. 
Build a variety of charts on the split screen 
combining information from 7 types of 
moving averages, 3 types of oscillators, 
trading bands, least squares, 5 different 
volume indicators, relative charts, much 
more. Hardcopy to most printers. $59.95 





The most advanced 
C development 
package available 
for the C-64 or C- 
128 with very com- 
plete source editor; 
full K&R compiler 
(w/o bit fields); 
linker (binds up to 
7 separate mod- 
ules); and set of disk utilities. Very complete 
editor handles search/replace, 80 column 
display with horizontal scrolling and 41K 
source files. The I/O library supports 
standard functions like printf and fprintf. Free 
runtime package included. For C-64/C-128 
with 1541/1571 drive. Includes system 
diskette and user's handbook. $79.95 





BASIC-64 


full compiler — The most advanced 
BASIC compiler 
available for the C- 
64. Our bestselling 
© LIME-ADDRESS-TABLE: software product. 
= cODe- START: Compiles to super- 


= RUNTIME-MOOOLE: 


a ext eusvon) om ws aie f fast 6510 machine 


= TOKEN-BYTES: 


> ELSE-cooe: a i code or very 
ras a compact speed- 
aaa code. You can even 
mix the two in one program. Compiles the 
complete BASIC language. Flexible memory 
management and overlay options make it 
perfect for all program development needs. 
BASIC 64 increases the speed of your 
programs from 3 to 20 times. Free runtime 
package. Includes system diskette and 


ADVANCED DEVELOPMENT BACKACE 
= CODE-GENERATOR: 

= LOAD SYMBOL-TABLE: 

= SAVE SYMSOL-TABLE: 





Zraauenrasnrnon wy 








Not just a compiler, 
but a complete 
development sys- 
tem. Rivals Turbo 


Pascal© in both 
speed and features. 
Produces fast 6510 
machine code. 
Includes advanced 
source file editor; 
full Jensen & Wirth compiler with system 
programming extensions, new high speed 
DOS (3 times faster); builtin assembler for 
specialized requirements. Overlays, 11-digit 
arithmetic, debugging tools, graphics 
routines, much more. Free runtime 
package. Includes system diskette and 
complete user's handbook. $59.95 


Compiles and Software 


VIDEO BASIC 


development The most advanced 
graphics develop- 
ment package avail- 
able for the C-64. 
Adds dozens of 
powerful commands 
to standard BASIC 
so that you can 
use the hidden 
graphics and sound 


capabilities. Commands for hires, multicolor, 
sprite and turtle graphics, simple and 
complex music and sound, hardcopy to most 
printers, memory management, more. Used 
by professional programmers for commerical 
software development. Free runtime 
package. Includes system diskette and 
user's handbook. $39.95 


Other software also available! 
Call now for free catalog and the name of your 


user's handbook. $39.95 
FORTH 
Language Our FORTH lang- 


( RANDOM NUMBER TESTER 7RND ) 
FORTH DEFINITIONS DECIMAL 
3 ?RND 
( INITIALIZE FIAST SCREEN) 
1024 1000 ASCII O FILL 
BECIN 
1000 AND [( RANDOM 0.999) 
( COLUMN, LINE) 
( EXCHANGE) 
( CHARACTER) 


le -ROT ( apD 1) 
( SAVE) ‘ 
TTERMINAL UNTIL 





uage is based on 


) the Forth 79 


standard, but also 
includes much of 
the 83 level to give 
you 3 times vocabu- 
lary of fig-Forth. 
Includes full-screen 
editor, complete 


nearest dealer. Phone: 616/241-5510. 
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Forth-style assembler, set of programming For fast service call 616/241-5510. For postage 


tools and numerous sample programs to get 
you deeply involved in the FORTH 
language. Our enhanced vocabulary 
supports both hires and lores graphics and 
the sound synthesizer. Includes system 
diskette with sample programs and user's 
handbook. $39.95 


and handling, include $4.00 per order. Foreign 
orders include $8.00 per item. Money orders and 
checks in U.S. dollars only. Mastercard, Visa and 
Amex accepted. 


Dealer Inquiries Welcome 
More than 1200 dealers nationwide 





COMMODORE 


COMPUTER 
AIDED 
DESIGN 









This introduction to Computer Aided Design is written for owners of the 
C-128 and C-64 Commodore computers. Utilizing the powerful new BASIC 
7.0 for the C-128, or SIMONS' BASIC for the C-64, you can create a custom 
CAD System for your computer. Learn the fundamentals of CAD while 
developing your own Computer Aided Design System. 


Topics covered include: 


What is CAD? 

CAD programs for the C-128 and C-64 

Technical Drawings created from small building blocks 
MACROS for CAD 

Three-dimensional technical drawings using MACROS 
Mirrored images 

Duplicating images 

Hatching 

CADDYMAT - acomplete mini CAD system 

C-128 MERGE and SCREEN DUMP programs (in Machine Language) 
and much more : 
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